my @array = (5, 4, 3, 2, 1);

foreach (0 .. $#array) {
    print "$_ => $array[$_]\n";
    if ($array[$_] <= 3) {
        print "Splicing $_ => $array[$_]\n";
        splice @array, $_, 1;
    }
}