open(STATFILE,$statfile) or die ("could not open the stat file");
my $lines = do { local $/; <STATFILE> };

my @ones;
my @twos;

	while($lines =~ m/traffic-gen.*client address = 192\.0\.0\.(\d+).*data units received = (\d+).*jitter/scgi)
	{ 
		print $1, "\tyes\t",$2,"\n";
		push @ones, $1;
		push @twos, $2;


	}

	print @ones,@twos;