$ perl -MO=Deparse 901847.pl
use warnings;
use strict 'refs';
{
    my(%hash) = ('one', 1, 'two', 2);
    foreach $_ (my($key, $value) = each %hash) {
        print $key, "\n";
    }
}