#Holds the names of users from SysPerf.
	my @SPUsers = ("mike", "john", "joe", "mmartin", "sp");

     #Loop through all the records (a line at a time), and search for matching users
	for (my $x = 0; $x <= $#records; $x++)
	{
		for (my $y = 0; $y <= $#SPUsers; $y++)
		{
			if ("@{ $AoA[$x] }" =~ "$SPUsers[$y]" && $AoA[$x][0] eq 'OWNER')
			{
				splice @AoA,$x,1;
			}
		}
	}


	for (my $x = 0; $x <= $#AoA; $x++)
	{
		print "@{ $AoA[$x] }\n";
	}
        print "Length of \$AoA = $#AoA\n";