my $name = shift or die "usage: $0 filename\n";
open FILE, '<', $name or die "Cannot open '$name' because: $!";

my $firstline;
while ( my $line = <FILE> ) {
    if ( $. == 1 ) {
        $firstline = $line;
        next;
    }
   ...etc...
}

close FILE;