@array = <FILE>;
$last_line = $array[$#array];

##</code><code>##

@array = <FILE>;
$last_line = $array[-1];

##</code><code>##

my $last_line = (<FILE>)[-1];