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

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