my @ingre = (\@tomatoes, \@lettuce, \@cheese, \@cucumbers); sub make { my @making = (@_); for (@making) { @making = @making[2,1,3,0]; } return @making; } @done = make(@ingre);