Here is another way of doing the same thing but without modifying the file.

tie @array, 'Tie::File', $fname or die "Can't tie $fname: $!";
my ($first,$last) = @array[0,$#array];

untie @array;
[download]