#!/usr/bin/perl --
use strict;
use warnings;

my %f = 1 .. 4;
for( ; my($k,$v) = each %f ; ){
   print qq!($k)=($v)\n!;
}
__END__
(1)=(2)
(3)=(4)

##</code><code>##

use warnings;
use strict 'refs';
my(%f) = 1..4;
while (my($k, $v) = each %f) {
    do {
        print "($k)=($v)\n"
    };
}
__DATA__