sub routine {
     my $input_ref = {@_};
     my $var1      = defined $input_ref->{var1} ? $input_ref->{var1} : 1;
}