if(  ! check_foo("foo",\$foo) )  ) {
    warn "No foo present\n";
} else {
    do_stuff( $foo );
}