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