my $i = 1; my @names = map {++$i > 6 ? $_ : () } @input2arr;