my $sth = $dbh->prepare('select 1,1,1');

$sth->execute;
print Dumper $sth->fetchrow_hashref;

$sth->execute;
print Dumper $sth->fetchrow_arrayref;

$sth = $dbh->prepare('select 1 as a,1 as b,1 as c');
$sth->execute;
print Dumper $sth->fetchrow_hashref;