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

##</code><code>##

@{[%hash]}