Select Code to Download

my @sorted = map {join, "|", @$_}
  sort {$a->[2] cmp $b->[2] or $a->[4] cmp $b->[4]}
  map {[split /\|/, $_, -1]} @my_list;

sorted = my_list.map {
    |i| [ i.split(/\|/)[2,4],  i ]
  }.sort.map { |i| i[-1] }