Select Code to Download

while ($pyclinevalues[0]) {
   $pyc = $pyclinevalues[0];
   ...
   shift(@pyclinevalues);
}

while (@pyclinevalues) {
   $pyc = $pyclinevalues[0];
   ...
   shift(@pyclinevalues);
}

for my $pyc (@pyclinevalues) {
   ...
}