# the program
my %hash;
my @arr;

%hash = (
        'one' => [1],
        'two' => [2,2],
        'three' => [3,3,3],
);

print "$hash{one}[0]\n";
print "$hash{two}[0]\n";
print "$hash{three}[0]\n";

$size = length $hash{one};
print ("size=$size\n");
$size = length $hash{two};
print ("size=$size\n");
print "all done\n";



% perl arrays.pl
1
2
3
size=16
size=16
all done