my $first = shift @links;
	push @links, $first / 2 if (!($first % 2)); 

##</code><code>##

 my $first = shift @links;
	push @links, $first;