@1[1,2,3,4,5,0];
$i=0;
if(@1[$i] == 0){
@1[$i] #<delete this
print "@1\n";
}
else{$i++;}

#so that output would be:
#(and @1 would be of one less size)
#12345