open my $temp, '>', $temp_filename or die ...;

for (@data) {
  print $temp join('|', ...), "\n";
}

open my $driver, '>', 'import.sql';
print $driver ".import $temp_filename\n";
...
system sqlite3 => -init => 'import.sql', $dbfile => '.quit';