my $ref = &select_query($sqlstatement);

for my $rec (@$ref){
  $query_results .= "<tr>";
  no warnings;
  for my $field (@$rec)
    {$query_results .= "<td>$field</td>"; }
  $query_results .= "</tr>";    
}