> perl -wle "my @hypothetical = (1 == 0); my $check = @hypothetical; print $check" 1