my @keys=keys(%{$hash});
print "Keys: @keys\n";