Select Code to Download

my @names = ('Fred', 'Wilma', 'Barney', 'Betty');
my @ages = ( 40, 38, 42, 41 );
...
for my $i ( 0 .. 3 ) {
    print "$names[ $i ] is $ages[ $i ]\n";
}

my %flintstones = (
    Fred   => 40,
...
for my $name ( keys %flintstones ) {
    print "$name is $flintstones{ $name }\n";
}