sub match_randomized_lists
{
    $count = 0;
    open (RANDOMIZED_LIST, $randomized_list) || die print "Script cannot open $randomized_list";
    my @randomized_list = <RANDOMIZED_LIST>;
    print $randomized_list;
    print "\n";
    print @randomized_list;
    print "\n";

    foreach my $list_to_match (@array_of_lists_to_match)
    {
	$count = $count + 1;
	print OUTPUT "NUMBER ";
	print OUTPUT $count;
	$match_count = 0;
	
	foreach my $randomized_entry (@randomized_list)
	{
	    chomp $randomized_entry;
    
	    if ($list_to_match =~ /$randomized_entry/)
	    {

		$match_count = $match_count + 1;
	    }
	}
	
	print OUTPUT ": ";
	print OUTPUT $match_count;
	print OUTPUT "\n\n";   
    }
}