# ... same code as above
use Data::Dumper; $Data::Dumper::Useqq = 1;
if ( my $hash_ref = $sth->fetchrow_hashref ) {
    print Dumper $hash_ref;
}