Select Code to Download

my %names;
$names{$linename.$counter} = "use pricedb;" ;

#my $line1 = "use pricedb;";

...
for my $counter (1 .. 10) {
    my $rowsaffected = $dbh ->do($lines[$counter]);
#...

for my $line (@lines) {
    my $rowsaffected = $dbh ->do($line);
#...