foreach my $element (@{$mainarr[1]}) { print "$element\n"; }