my %names;
$names{$linename.$counter} = "use pricedb;" ;
##</code><code>##

#my $line1 = "use pricedb;";

my @lines = (
    "use pricedb;"  ,
    "..."           ,
    "..."           ,
);

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

##</code><code>##


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