Select Code to Download

use strict;
use warnings;
...
  }
  print "\n";
}

$VAR1 = \{
            'trans2' => [
...
          };
Values under trans2:
90, 20, 80, 33,