利用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\n";     my $tmp_label = $table->Label(-text =>  $var, -width => 20, -relief =>'raised'); ##放到第0行 第N列  $table->put(0, $key, $tmp_label);}