[perl] ODBC scorrere recordset

[wackyrace]

#!c:/Perl/bin/perl.exe -w  
$testo = "table";  
sub usb_FunzioneRiferimento(){     
   my $stringainterna = @_;     
   ${$stringainterna} = "pippo"; 
}  

&usb_FunzioneRiferimento(/\$testo); #lo slash è girato al contrario in quanto il codice postato nel forum viene cancellato

print "Content-Type: text/html\n\n"; 
print $testo; 

Sono riuscito ad isolare il problema sul passaggio per riferimento di una stringa.
Questo codice da errore.

Per gli array e gli hash basta mettere lo slash. Per la stringa?

Grazie