sub test_stuff {

    my($is_alive,$is_cool,$is_a_smurf,$is_a_moose) = @_;

    if ( $is_alive ) {
        print "It's alive!";
    } elsif ( $is_cool || $is_a_smurf ) {
        print "It's either cool xor a smurf";
    } elsif ( $is_a_moose ) {
        print "It's a moose";
    } else {
        print "It's something strange :(";
    }
}

sub test_more_stuff {
    my($is_a_cow,$is_a_pow,$is_a_how,$is_a_now) = @_;

    if ( $is_a_cow ) {
        print "It's alive!";
    } elsif { etc... etc...}
}