Select Code to Download

my @old = ( "10.5 AA", "9 AC", "2 BB"); 

...
   $x.='0' for (1..$max_len-length($_));
   $x.$_;
} @old;

$VAR1 = [
          '10.5 AA',
          '0009 AC',
          '0002 BB'
        ];