use strict;
use warnings;

use Data::Dumper;

my @mainarr;
my @arr1=qw(a b c d e);
my @arr2=qw(f g h i j);
my @arr3=qw(k l m n o);
push(@mainarr,\@arr1);
push(@mainarr,\@arr2);
push(@mainarr,\@arr3);

# print Dumper \@mainarr;

my $index=0;
foreach (@mainarr){
    print @{$mainarr[$index]} if $index == 1;
    $index+=1;
}