my @nums = (1, 2, 4, 5, 8, 9);
my @dat =  (3, 9, 14, 10, 12, 8);
for my $i ( 0 .. $#nums ) {
    print "$nums[$i] $dat[$i]\n";
}