perl -MTie::File -E "tie my @a, 'Tie::File', $ARGV[0]; say @a[0..4]; say @a[-5..-1]" lines.txt