PHP 2 Perl

[Error202]

Господа!
Что-то у меня не клеится...
Как это будет выглядеть в Perl:

function sql_fetch_all($query) 
 {
    $result = mysql_query($query);
    if($mysql_err = mysql_errno()) 
          {

print $query.\'
\'.mysql_error();
          } 
    else 
          {
                while($row=mysql_fetch_array($result)) 
                        {
                          $data[]=$row;
                        }

          }

    return $data;
}

[Green Kakadu]

while (my  $row_ref = $sth->fetchrow_arrayref() )
{
...
}

[xames]

$array_ref = $dbh->selectall_arrayref($query);


$array_ref -  ссылка на массив содержащий сылки на масивы строк в возвращаемом результате