my $a;
$a = unshift(@array);
while ($a == 1) $a = unshift(@array);
if (defined($a)) unshift @array, $a;