my $p = 0;
for (my $q = 0; $q < @{$mon_obj->{'FILE_DATA'}}; ++$q) {

  if (defined $mon_obj->{'FILE_DATA'}->[$q]) {

    $mon_obj->{'FILE_DATA'}->[$p] = $mon_obj->{'FILE_DATA'}->[$q]
      if $p != $q;

    $p++;

  }
}

splice @{$mon_obj->{'FILE_DATA'}}, $p;