open my $fh, '<', $file or die $!;
<$fh>; # erste Zeile "überspringen"
while (my $line = <$fh>) {
   # Verarbeitung
}