my $center = 1;
...
while ($center--)
{
...
return ... ;
}