Checking if more than one character have frequency greater than 1.
$ count = 0 ; for ( $ j = 0 ; $ j < 26 ; $ j ++ ) if ( $ freq [ $ j ] % 2 ) $ count ++ ; ( $ count <= 1 ) ? ( print ( " Yes STRNEWLINE " ) ) : ( print ( " No STRNEWLINE " ) ) ; }