my ($Y1, $X1, $Azimuth, $Y2, $X2, $Device) = $csv->fields; if ($Azimuth != 'Azimuth') {$Azimuth = "Print This A LOT!!";} print < $Y1 $X1 $Azimuth $Y2 $X2 $Device EOF