my @foo = map  { $_->[0]             }
          sort { $a->[1] <=> $b->[1] }
          map  { m/^(.*(\d+).*)$/    }
          @bar;