my @sorted = sort { 
    substr( $a, 1 + rindex, $a, ':' ) cmp substr( $b, 1 + rindex, $b, ':' ) 
} <>;