8 lines
118 B
Perl
8 lines
118 B
Perl
%hash = ();
|
|
|
|
$hash{fruit} = apple;
|
|
$hash{sandwich} = hamburger;
|
|
$hash{drink} = bubbly;
|
|
|
|
print $hash{sandwich};
|