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