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