sub routine1 {
    my ($var_one, $var_two, $var_three) = @_;
    ...
}

sub routine2{
    my $var_one = shift;
    my $var_two = shift;
    my $var_three = shift;
    ...
}