Select Code to Download

my $select = qq~SELECT field1 field2 field3 FROM $ref;~;
my $sth = $dbh->prepare( $select );
$sth->execute();
my ($field1, $field2, $field3) = $sth->fetchrow_array;

my @inarray = $sth->fetchrow_array();