Make perl fragile?

[Robert L. Harris]

I've got a nice script running.  It sorts through about 500Megs of data
and puts out about 30 relevant lines.  It's doing exactly what I want.

The problem is I think there is an error in the input data.  I keep
getting this:


--------------------------------------
Loading Initial Data
Use of uninitialized value in pattern match (m//) at ./SortData.pl line 50,
        <SLIN> line 1230370 (#1)
    (W uninitialized) An undefined value was used as if it were already
    defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
    To suppress this warning assign a defined value to your variables.
--------------------------------------


I'd rather not try and edit this file and go to line 1230370.  Is there
a way to tell perl to execute a function (dump some information) and
exit when it see's an error like this?






:wq!
---------------------------------------------------------------------------
Robert L. Harris                |  Micros~1 :
Senior System Engineer          |    For when quality, reliability
  at RnD Consulting             |      and security just aren't
                                \_       that important!
DISCLAIMER:
      These are MY OPINIONS ALONE.  I speak for no-one else.
FYI:
 perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'