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";
}