my @substringedarray = sort {$a <=> $b} grep {substr($_,0,1)} @original array;