my @sorted = sort { ($a =~ /(\d{12})/)[0] <=> ($b =~ /(\d{12})/)[0] } @lines;