You should always test to see if your match operations succeed, i.e.:

if ( ($CardNo, $MMDD, $Type, ... ) = m{^...} ) {
  # do stuff
} else {
  warn "unable to parse this line: $_";
}
[download]

In your case, data line 14 (from what I can tell) is the short line at the end of the file. It's probably not matching your regular expression, and so lots of variables (like $TET4) are being set to undef.