use strict; use Data::Dumper; my $filename = "Library.txt"; my @sortarr; my @sortslice; open (INPUT, $filename); my @array = ; foreach my $array (@array) { push @sortarr, [ split(/\t/, $array) ]; } @sortslice = @{$sortarr[0..10]} [3]; print "@sortslice\n";