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

for my $i (0 .. $#array) {
    unshift @array, splice @array, $i, 1 if $array[$i] == 0;
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.