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