[perl] ODBC scorrere recordset

[wackyrace]

Ciao ho uno strano problema:

use Win32::ODBC;

my $db = new Win32::ODBC( $DSN ) || die "Error: " . Win32::ODBC::Error();
$db->Sql($QuerySql);

while( $db->FetchRow() )
{
     my @sotto_array = $db->Data();             
     
     #CODICE FUNZIONANTE
     $i=0;         
      $$TabQueryHtml .= "<td>". $sotto_array[$i] ."</td>";         
      $i=1;
      $$TabQueryHtml .= "<td>". $sotto_array[$i] ."</td>";                           


     #CODICE ERRATO
     for $y(0..$#sotto_array) {             
          $$TabQueryHtml .= "<td>". $sotto_array[$y]  ."</td>";         
     }
} 

Il codice da problemi nella valutazione di $sotto_array[$y] se metto un numero al posto di $y viene eseguito correttamente atrimenti no.

Grazie