my @sorted = 
    map   { $_->[0] }
    sort  { $a->[1] <=> $b->[1] }
    map   {[ $_, substr( $_, 2, 5 ) ]} @list;