for my $a (0..$i) {
    for my $s (0..$s) {
        if ($a != $s) {
            # do something
        }
    }
}