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

# script
foo(23);