Select Code to Download

my ($col1,$col2, $col3) = $dbh->selectrow_array("SELECT col1,col2,col3
+ FROM database where whatever='something' limit 1");

 $sth->execute();
 my $names = $sth->{NAME};
...
          print "$name is $r->{$name}\n";
     }
 }