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