my @tables = qw(table1 table2 table3 table4);

foreach(@tables){
  my $select = "SELECT * FROM $_ $where ORDER BY time;";
  my $sth = $dbh->prepare($select);
  $sth->execute();
  while(my @array = $sth->fetchrow_array()){
    print "@array";
  }
}