my $n=7;
for my $a ( 1..$n-1){
    print $_, ',', $_+$a, ' ' for (1..$n-$a);
    print "\n";
}