@x = sort { ($a =~/^(\d+)/)[0] <=> ($b =~/^(\d+)/)[0] } @x;