$array[13]="" unless defined $array[13];
$array[14]="" unless defined $array[14];

##</code><code>##

while (<FILEHANDLE>) {
  chomp;
  my @array=split/\s+/;
  $array[13]="" unless defined $array[13];
  $array[14]="" unless defined $array[14];
  print "$array[13]\t$array[14]\n";
  print OUTFILE "$array[13]\t$array[14]\n";
}