print STDERR ('$row[0]: ', defined($row[0])?1:0, "\n"); print STDERR ('$row[1]: ', defined($row[1])?1:0, "\n"); print STDERR ('$matrix[$ab]: ', defined($matrix[$ab])?1:0, "\n"); print STDERR ('$matrix[$ab][3]: ', defined($matrix[$ab][3])?1:0,"\n"); print STDERR ('$total_packages: ', defined($total_packages)?1:0,"\n"); push(@MASTER, $row[0].":".$row[1].":$matrix[$ab][3]:".$total_packages."AI"); last SWITCH; }