Select Code to Download

#!/usr/bin/perl

...
    } @AoH;

print Dumper( \@AoHfinal );

$VAR1 = [
          {
...
            'targetL' => 'due'
          }
        ];