for my $i (0..$#sig) {
    for my $j ($i+1..$#sig) {
        print "$sig[$j]\n";
    }
}