my $a; foreach (keys %$a) { print "$_\n"; }