my $sth = $dbh->prepare($query);
my $insertedrecords = $sth->execute;
while (my $result = $sth->fetchrow_hashref) {
  ...
}