#my $line1 = "use pricedb;";

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

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