@array = sort { substr( $a, 5 ) <=> substr ( $b, 5 ) } @array;