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...
}