my $x = $counter > 4 ? 1 : 0;