Select Code to Download

my @array  = (0,1,2);
foreach my $el ($array[0],$array[1],$array[2]){
    print ">>$el<<\n";
    splice(@array,1,1) if $el == 0;
}