while(<DATA>)
{
	@x=split(' ');
	if($x[3] eq 'AGT')
	{
		$hash_key = $x[0].$x[5];
		$hash_value = $x[1];
		$hash_table{"$hash_key"} = $hash_value;

		if($x[5] gt $last_packet_id)
		{
			$last_packet_id = $x[5];
		}
	}
}

$simulation_time = $x[1];

for($packet_id = 0;$packet_id<=$last_packet_id;$packet_id++)
{
	$hash_key = "s".$packet_id;
        $enqueue_time = $hash_table{"$hash_key"};
        $total_enqueue_count++;
	$hash_key = "r".$packet_id;
	if(exists($hash_table{$hash_key}))
	{
		$receive_time = $hash_table{"$hash_key"};
	}
	else
	{
                $total_drop_count++;
		next;
	}
	$total_receive_count++;
	$delay = $receive_time - $enqueue_time;
	$sum_of_delay = $sum_of_delay + $delay;

#	$delay = $delay * 1000;
#       print("\nDelay:$delay");

}