Four,4,Miss
Four,4,Miss
Four,4,Miss
Three,3,Miss
Three,3,Miss
Three,3,Hit
Two,2,Miss
Two,2,Hit
Two,2,Miss
One,1,Hit
One,1,Miss
One,1,Miss

##</code><code>##

One,1,Hit
Two,2,Hit
Three,3,Hit
Four,4,Miss

##</code><code>##

use strict;
use warnings;

my %hash = ("One","1","Two","2","Three","3","Four","4");
my @lines = ("One", "Two", "Three");

foreach my $i (keys %hash)
{
	foreach my $n (@lines)
	{
		if ($i eq $n)
		{
			print "$i,", $hash{"$i"}, ",Hit\n";
		}
		else 
		{
			print "$i,", $hash{"$i"}, ",Miss\n";
		}
	}	
}