#/usr/bin/env perl

my %hashn = ("a" => "lol", "b" => "rolf");
my $k;
my $v;

format STDOUT=
@<<<<<< @<<<<<
$k,$v
.


while (($k, $v) = each(%hashn)) {
	write;
}