Here's a simple way:

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";
}
[download]

use List::MoreUtils qw(zip natatime);

my @nums = (1, 2, 4, 5, 8, 9);
my @dat =  (3, 9, 14, 10, 12, 8);
my $it = natatime( 2, zip(@nums, @dat) );
while ( my @vals = $it->() ) {
    print "@vals\n";
}
[download]

use List::MoreUtils qw(pairwise);

my @nums = (1, 2, 4, 5, 8, 9);
my @dat =  (3, 9, 14, 10, 12, 8);
print pairwise { "$a $b\n" } @nums, @dat;
[download]

I was just about to follow up with that pairwise option. Glad I saw your update before I did. But I still wanted to mention that I find it necessary to write it something like this:

print pairwise{ no warnings 'once'; "$a $b\n" } @nums, @dat;
[download]

...lest I get a pair of warnings that $a and $b are used only once.

List::MoreUtils provides several ways to do it. This isn't quite as elegant, but still seemed neat to me.

my $ea = each_array( @nums, @dat );
while( my( $n, $d ) = $ea->() ) {
    print "$n $d\n";
}
[download]

Update: I've submitted a patch and a corresponding test targeting the 'used only once' warnings.




Dave

 
print "$nums[$_] $dat[$_]\n" for 0 .. $#nums;
[download]

is there any way to get a one line print statement?

my $str = q{};
{
    my $i = 0;
    $str .= join(q{ }, $nums[$i] // last, $dat[$i++] // last) . "\n" w
+hile 1;
}
print $str;
[download]

A little addition, we can still use 'our' basic hash: like this

#!/usr/bin/perl
use warnings;
use strict;

  my @nums=(1,2,4,5,8,9);
  my @dats=(3,9,14,10,12,8);
   
  my %ha;
     @ha{@nums}=@dats;

    print $_,' ',$ha{$_},$/ for sort keys %ha;
[download]