my $count = () = x(); print "$count\n";