my $name = shift or die "usage: $0 filename\n";
open FILE, '<', $name or die "Cannot open '$name' because: $!";
my ( $firstline, @file ) = <FILE>;
close FILE;

foreach my $line ( @file ) {
   ...etc...
}