利用hash 数组打印标题

##使用hash数组
my 	%hash=("1","HOST",  
        "2","FILESYSTEM",  
        "3","TYPE",
        "4","SIZE#",
        "5","USED",
        "6","AVAIL",
        "7","USE",
        "8","MOUNTED",
        "9","SYSDATE"); 
foreach  $key (sort keys %hash)

{    my $var = $hash{$key};
	print "$var is  $var
";
    	
	 my $tmp_label = $table->Label(-text =>  $var, -width => 20, -relief =>'raised');

	 ##放到第0行 第N列
  $table->put(0, $key, $tmp_label);
}