my @names = ('Fred', 'Wilma', 'Barney', 'Betty');
my @ages = ( 40, 38, 42, 41 );

for my $i ( 0 .. 3 ) {
    print "$names[ $i ] is $ages[ $i ]\n";
}

##</code><code>##

my %flintstones = (
    Fred   => 40,
    Wilma  => 38,
    Barney => 42,
    Betty  => 41,
);

for my $name ( keys %flintstones ) {
    print "$name is $flintstones{ $name }\n";
}