Select Code to Download

$ref = [
    map  { $_->[0] }
...
          [ $_, pack "sA*", $srn =~ /^[0-9]+$/ ? $srn : 999, $srn ]
          }
    @$ref ];