Select Code to Download

#!/usr/bin/perl

...
  } @AoH;

use Data::Dump 'dd'; dd @AoHfinal;

(
  { count => 2, origin => "AMG IDBR", targetL => "foisonnement" },
  { count => 1, origin => "IWWF", targetL => "gonfler" },
  { count => 2, origin => "IWWF", targetL => "due" },
)