golf - reverse numbers game

reverse.pl

# current solution using local minima/maxima algorithm - 222
@z=split' ',<>;while(!$t){$t==$_-1?$t=$_:($t=0,last)for@z=(f(shift@z),@z)}sub f{$i++;my($p,$c)=(pop,shift@z);if(($p<$c&&$c>$z[0])||($p>$c&&$c<$z[0])||$#z==-1){if($i+1!=$l){$l=$i+1;print"$l ";$i=0;return($c,$p)}}(f($c),$p)}

=pod
@z=qw(30 13 19 23 18 11 21 8 10 4 29 14 31 27 1 9 22 32 7 2 25 12 17 33 5 26 16 6 35 3 24 28 34 15 20);

while (!$t) {
	$t==$_-1?$t=$_:($t=0,last) for @z=( func(shift@z), @z);
	#map {$t==$_-1?$t++:0} @z=( func(shift@z), @z);
	
}

print "\n",join ',', @z;

sub func {
	$i++;
	my($p,$c) = (pop,shift@z);
	if ( ($p<$c && $c>$z[0]) || ($p>$c && $c<$z[0]) || $#z==-1) {
		
		if ($i+1 != $l) {
			$l = $i+1;
			print "$l ";
			$i = 0;
			
			return($c,$p)
			
		}
		
		
	}
	(func($c),$p)
}
=cut