use Data::Dumper;
while (my $data = $sth->fetchrow_hashref) {
     print Dumper($data);
}