Select Code to Download

$ cat 11106779.pl

use strict;
use warnings;
...
$sth->execute($_->{targetL}, $_->{origin}) for @AoH;

__END__

$ perl 11106779.pl

$ sqlite3 11106779.db

SQLite version 3.24.0 2018-06-04 14:10:15
Enter ".help" for usage hints.
...
AMG   |foisonnement|1
IDBR  |foisonnement|1
IWWF  |gonfler     |1