my $sqlstatement = q{
  SELECT Table1.Name, Table1.Address, Table1.City, Table1.State, 
  Table1.ZIP, Table1.Phone FROM Table1 WHERE Table1.BusType = ?};
my $sth = $dbh->prepare($sqlstatement);
foreach my $line (<DATA>) {
  chomp $line;
  $sth->execute( $line );
   # your fetch here fetch
}