perl -lwe '@a=(29,24,0,24,24,12,0,10,10,19,17,15,13,1,12,12,24);@x[@a]=();print $#x and delete $x[-1] while @x'
29
24
19
17
15
13
12
10
1
0