Ist dir eigentlich klar, dass eine Deklaration einer Variablen mit my nur innerhalb des Blocks ( also des {} ) sichtbar ist?
Oder warum die vielen my ($retval1,$retval2) in den if-else-Zweigen?
Copy&Paste-fehler?