Select Code to Download

use Data::Dumper; $data::Dumper::Terse=1; $Data::Dumper::Indent=0;

...
n=5  $VAR1 = [[1,5,7,9,32],[197,8,4,5]];
n=6  $VAR1 = [[1,5,7,9,32,197],[8,4,5]];
n=7  $VAR1 = [[1,5,7,9,32,197,8],[4,5]];