$test = @test;  #This will be useful in the next statment
[download]

Nope: while ( $cyc_count <= @test){
On second thought, if you are shifting @test, just write

while( @test ){
   ...
   shift @test;
}
[download]