rec_for([1..3],["a".."c"],[10..13]);

my @tuple;

sub rec_for {
  if (@_) {
    my $a_list = shift;
    for my $x (@$a_list) {
      push @tuple, $x;
      rec_for(@_);				
      pop @tuple;
    }
  } else {
    print "tuple: @tuple\n";
  }
}