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

# Parallel processing of two arrays with different numbers of elements

my @arr=qw/a b c d e/; 
my @bar = qw/12 34 56/; 
my $i = 0;
while ($i<($#arr+2)) { 
    no warnings 'uninitialized';
    say "\t \$i: $i"; 
    say "\t\t $arr[$i], $bar[$i]";
    ++$i; 
}

##</code><code>##

C:\>D:\_Perl_\PMonks\parallelArrayProcess.pl
         $i: 0
                 a, 12
         $i: 1
                 b, 34
         $i: 2
                 c, 56
         $i: 3
                 d,
         $i: 4
                 e,
         $i: 5
                 ,

C:\>