my @sorted = sort{ substr( $a, 19 ) cmp substr( $b, 19 ) } ;