##
my $x = $counter > 4 ? 1 : 0;
##
##
my $x;
if( $counter > 4 ){
$x = 1;
}
else {
$x = 0;
}
##
##
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)