Select Code to Download

sub codes_sorted
{
...
    sort
    map { /-(\d+)-([A-Z]{2})(\d+)/; pack('N',$1).$2.pack('N',$3).$_ }
}

  print OUT join ', ', codes_sorted( keys %{$data{$name}} );