use stritct;
use Tie::File;
tie my @lines, Tie::File, $infile;
delete $lines[-1];