connection stuff

open (IN, "<$file");
@array=<IN>;

print @array;

$dbh->do ( "INSERT INTO data_profile (file) VALUES (?)",undef,@array);

$dbh->disconnect ();