If your query requires one parameter, and you are passing an array, it's correct that only the first is inserted.

What you need is to prepare once aand execute many times.

my $sth = $dbh->prepare( "INSERT INTO data_profile (file) VALUES (?)")
+;
for (@array) {
    $sth->execute($_);
}
[download]

Alternatively, you can create a multiple insert query.

# assume that @array contains qw(abc def ghi);
my $query = 'INSERT INTO data_profile (file) VALUES ';
$query .= join(',', map {'(?)'} @array);

# now $query will be 'INSERT INTO data_profile (file) VALUES (?),(?),(
+?)'
$dbh->do($query, @array);
[download]

HTH

Read the entire contents into a single scalar (my $contents = do { local $/; <FILE> };) and pass that to the database using an insert statement you've prepared. See the Handling BLOB / LONG / Memo Fields in the DBI documentation.

Fletch's answer above is a good way to go. If you need the rows in an array for some other reason, you can always join them before you insert, something like this:

@array = <IN>;
# Other stuff with @array ...
$sth = $dbh->prepare('insert into data_profile (file) values (?)');
$sth->execute(join '' => @array);
[download]

my $sth=$dbh->prepare("INSERT INTO data_profile VALUES (?)");
while(<DATA>){
   $sth->execute($_)or die $dbh->errstr;
}
__DATA__
1   10
2   20
[download]