use strict;
$\="\n";
my %f = 1..4;
print \%f;
my %b = %f;
print \%b;
print they => are => not => equal => chr(33) if \%b ne \%f ;