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