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;
}

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

    open my $errormap, '<', 'errormap.txt' or die $!;
    my @lines = <$errormap>;
    close $errormap;

    print $lines[ $linenr-1 ];
}