#!/usr/bin/perl
use 5.014;  # enable features, strict and warnings

my @arr = qw(a b c d e f g h i j);

my $i=0;

while ( $i <=4 ) {
    my $j = $i+5;
    say "$arr[$i] \t $arr[$j]";
    $i++;
}