You may want to do something like (just guessing since I don't know exactly what you want to do):

...
chomp @lines;
...etc.

my $sth = $dbh->prepare("insert into foo (col1, col2) values (?,?)");
for my $i (0..$#lines) {
 $sth->execute($i, $lines[$i]);
}
[download]