Give us a concrete example. My first reaction is that you're having problems with the naming of parameters. So, what I would do is pass your parameters in as a hashref. Something like:

sub first_sub {
    my ($args) = @_;

    # ... Do stuff here with $args->{FOO} ...

    $object->method(@{$args}{qw(ARG1 ARG2 ARG3)});

    # ... Do more stuff here, this time with $args->{ETC} ...
}

first_sub(
   {
    ARG1 => 0,
    ARG2 => 1,
    ARG3 => 2,
    FOO => 'bar',
    ETC => 'etc',
   },
);
[download]

That way, you're using Perl to name your arguments for you. The @{$args}{qw(ARG1 ARG2 ARG3)} syntax is a hashslice of a hashref.

my @temp = @{$args}{qw(ARG1 ARG2 ARG3)};
[download]

is equivalent to

my @temp;
push @temp, $args->{ARG1};
push @temp, $args->{ARG2};
push @temp, $args->{ARG3};
[download]

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!