while ( my $line = <$handle> ){
    # ignoriere die ersten 5 "Zeilen"
    next if ( $. <= 5 );
    chomp $line;
    # ...
}