If you really, really, really want named aliases without making copies or playing games with modules, then do so. Make your sub look like:

sub foo {
  foreach my $arg1 ($_[0]) {
    foreach my $arg2 ($_[1]) {
      foreach my $arg3 ($_[2]) {
        # insert your code here which uses arg1, arg2, and arg3
      }
    }
  }
}
[download]

Not, mind, that'd I'd recommend, nor even suggest that, but...