use warnings; use strict;
sub foo {
    my ($par) = @_;
    my @arr = qw/ in seinen Armen das Kind war Brot /;
    return $arr[$par];
}

print foo(3); # gibt "das" aus.
print foo(6); # gibt "Brot" aus.

# modul
sub foo {
    my ($num) = @_;
    my @array = fuelle array...;
    print "Fehlernummer: $array[$num]\n";
}

# script
foo(23);

00 Fehlermeldung 00
01 Fehlermeldung 01
02 Fehlermeldung 02

package test;

use strict;
use warnings;
use IPC::Open2;


sub errormap
{
        my $errormaplist=shift;
        #print $errormaplist."\n";
        open (DATEI, "errormap.txt");
        @errormaplist=<DATEI>;
        close (DATEI);
}
1;

#! /usr/bin/perl

use strict;
use warnings;

use <PfadzumModul>::test;

open( my $fh, '<', 'errormap.txt' ) or die "Fehler: $!";
# '<' zeigt, dass lesender Zugriff ist ('>' steht für schreibend, siehe perldoc -f open)
# in $! steht der Fehler (siehe perldoc perlvar)

use lib "/pfad/zu/allen/modulen";
use test;

#!/usr/bin/perl

use strict;
use warnings;

open( my $fh, '<', 'test.txt' ) or die $!;
while( my $line = <$fh> ){
    print $line;
}
close $fh;

package MODUL::ERRORCODE;

use strict;
use warnings;


sub errormap
{
        open( my $errormaplist, '<', 'errormap.txt' ) or die "Fehler: $!";
        close $errormaplist;
}
1;

#! /usr/bin/perl

use strict;
use warnings;

# include MODUL in module search path
BEGIN { push(@INC,"Z:/work/errorhandling/test02"); }

use MODUL::ERRORCODE;

Modul:
- Methode new():
- - Array mit Meldungen füllen, referenzieren, zum Objekt machen und Referenzen zurückliefern.
- Methode get_msg():
- - Nimmt Fehlernummer entgegen und liefert die entsprechende Meldung aus dem Array oder Leerstring/undef falls Nummer nicht existiert/definiert.

Skript:
- Modul mit use einbinden;
- Objekt erstellen; Schema: my $foo = Bar->new();
- Objekt nutzen: $foo->get_msg( 2 );