map{my $i = $_; map{ print $i,$_,"\n" }(5..6)}(1..2);