Select Code to Download

use warnings;
use strict;
...
foreach my $record (@definition) {
    print $record->{Lang4}, "\n";
}

$VAR1 = [
          {
...
        ];
ok
one