Select Code to Download

my @sorted_list =
    map  {$_->[0]}
    sort { $b->[1] cmp $a->[1] }
    map  { /([\d_]+)\.csv\.xml$/ ? [$_,$1] : [$_, 0] }
         @file_list;