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