my $line1 = "use pricedb;";
my $linename = "line";

my $dbh = DBI->connect("DBI:mysql:host=localhost;database=mysql","root","root");


# set up a loop to make submitting lines easier  ;

  for(my $counter = 1; $counter <=10; $counter ++)
      {
       
        my $concatline = $linename.$counter;
        my $rowsaffected = $dbh ->do(${$concatline});
        if ($rowsaffected && $rowsaffected == 0E0)
            {
              print "Operations ws successful but no rows were affected \n";
            }
        elsif($rowsaffected)
            {
              print "Operation was successful ($rowsaffected rows)\n";
            }
        else
            {
              print "Operation failed: $DBI::errstr\n";
            }
      }
        
   $dbh -> disconnect;