use vars qw($VAR2);

# global defaults and whatnot
$VAR2 = 'thingamabob';

sub routine {
     my $input_ref = {@_};
     my $var1      = $input_ref->{var1} || '';
     my $var2      = $input_ref->{var2} || $VAR2;
     ...etc...
}

##</code><code>##

sub routine {
    my $input_ref = {@_};
    my $do_this   = $input_ref->{do_this} || 1;
}

##</code><code>##

my $do_this = 0;
if ($input_ref->{do_this} eq '0') {
    $do_this = 0
}
else { 
    $do_this = 1
};