Hello - I'm new to Perl. Trying to set up a loop to call a series of lines to submit to SQL I've already assigned $line1, $line2, $line3 etc with sql queries to run on the database. The problem is perl doesn't seem to like $linename.$counter

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 affecte
+d \n";
            }
        elsif($rowsaffected)
            {
              print "Operation was successful ($rowsaffected rows)\n";
            }
        else
            {
              print "Operation failed: $DBI::errstr\n";
            }
      }
        
   $dbh -> disconnect;
[download]

Please advise how I get the loop to pull $line1, $line2 etc? NB I'm very new to Perl so would appreciate v simple suggestions - my previous experience is SAS, Matlab and a little VBA..Thanks!!