while (<FILE>) {
#  $phi = substr($_, 0, 6);
#  $psi = substr($_, 8, 6);

   ( $phi, $psi ) = split;
   ...