sub selecthashref{
   my ($statement,@array) = @_;
   my $sth = $dbh->prepare( $statement) or die $dbh->err().": ".$dbh->errstr();
   $sth->execute() or die $dbh->errstr();
   while(my $hashref = $sth->fetchrow_hashref()){
    push(@array,$hashref);
   }
   return \@array;
}