#!/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)