my @fields = qw(foo bar baz);
my %results;
$sth->execute();
$sth->bind_columns(@results{@fields});
while( $sth->fetch() ) {
   #your results will be available in %results
}