my $count = () = expression_in_list_context;