Mine

 my @v = split(/,/,$_);
  my $arref = $scoutings{$v[3]};
  if (defined $arref)
  {
    my @arr = @$arref;
    if ($#arr>=5)
    {
      if ($arr[1] > $v[5])  # If attack happened after scouting
      {
        $arr[2] -= $v[7];
        $arr[3] -= $v[8];
        $arr[4] -= $v[9];
        $arr[5] -= $v[10];
        $arr[5]=0;
        if (($arr[2]<0) && ($arr[3]<0) && ($arr[4]<0) && ($arr[5]<0)) {$delete.="${arr[0]} "; delete $scoutings{$v[3]};} # If all resources have been plundered
      } else
        {
	      $delete.="${v[0]} "; # If attack happened after scouting there is more reliable data, so attack report can be deleted
        }
    }