Eine von drei Funktionen wird nicht erkannt, warum?

[Funktionsaufruf]

Hallo,

ich habe ein kleines Programm welches mich immer wieder ärgert. Heute mal auf diese Weise, ich baue eine neue Funktion (.pm) in welcher ich Übergebene Daten aus dem Hauptprog in eine Datei schreibe.

Ich habe also folgende Dateien:

Prog.pl
funktion1.pm
funktion2.pm
funktion3.pm

So nun kann ich problemlos funktion 1&2 aufrufen, aber bei der dritten bekomme ich den Fehler hier:

Undefined subroutine &main::funktion3 called at Prog.pl line 171, <DB> line 12.

Alle drei Funktionen rufe ich so auf:

  
if($Programm eq "XXXX")  
{  
 require funktionx;  
 funktionx(%hash);  
}  

Und wie gesagt bei zweien funktioniert es, bei der dritten eben nicht mehr...hatte jemand von euch schonmal was ähnliches???