Select Code to Download

@sorted = sort { substr($a, 1) <=> substr($b, 1) } @data

use Sort::Key::Multi qw(si_keysort);
  # "si" indicates that the sorting keys
  # are a string and an integer

my @sorted = si_keysort { /^(\D*)(\d*)$/ } @data;