inserisci un print sotto
my $pagato = $_[0];
print $pagato;

e controlla cosa contiene effettivamente.