my @array = (1..9);
print +(pop @array),"\n" while (@array);