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