Hash Perl

%hash = ();
print %hash;
print "\n";
$hash{fruit} = apple;
$hash{sandwich} = hamburger;
$hash{drink} = bubbly;
print %hash;