sub errorcode {
    my ($linenr) = @_;

    open my $errormap, '<', 'errormap.txt' or die $!;
    while( my $line = <$errormap> ){
        # in $. steht die Zeilennummer (siehe perldoc perlvar)
        if( $. == $linenr ){
            print $line;
            last; # springe aus der Schleife raus
        }
    }
    close $errormap;
}