my @lines = <DATA>;
my $line;
foreach $line ( @lines ) {
  chomp($line);
  #prepare and execute SQL statement
  $sqlstatement="SELECT Table1.Name,  Table1.Address, Table1.City, 
                        Table1.State, Table1.ZIP,     Table1.Phone 
                   FROM Table1 WHERE Table1.BusType = ".$dbh->quote($line);
  $sth = $dbh->prepare($sqlstatement);
}