Select Code to Download

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

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