foreach my $key ( @{[%hash]} ) {
 print $key;
 delete $hash{$key};
}