foreach my $row (@results)
{
   print "$row->[0]  $row->[1]\n";
}