# open the file using _ to avoid multiple system calls invoked by perl open _,"filename"; #### my @lines=<_>; #### @lines[$#lines]; #### Scalar value @lines[$#lines] better written as $lines[$#lines] #### $lines[-1]