while( my $data = $sth->fetchrow_arrayref || die $sth->errstr; ) {
  print "$data : @{ $data }";
}