/usr/bin/perl -w /home/lanx/B/PL/PM/recursive_for.pl 
tuple: 1 a 10
tuple: 1 a 11
tuple: 1 a 12
tuple: 1 a 13
tuple: 1 b 10
tuple: 1 b 11
...