array1    array2
read      book
eat       apple
book      novel
apple     banana
play      football
tennis    football
novel     mazagine

##</code><code>##

Hi all,
I am trying to implement a co-relation problem in perl. I have  two arrays i.e. array1 and array2 which contain following values.
<c>
array1    array2      array3    array4
read      book        novel     magazine
eat       apple       banana
play      football    tennis

##</code><code>##

#Step no.1
for($i=0;$i<$arraylength;$i++)
{
	for($j=0;$j<$arraylength;$j++)
	{
		if($array2[$i]eq $array1[$j])
		{
			$array3[$i] = $array2[$j];
		}
			}
}
#Step no.2
for($i=0;$i<$arraylength;$i++)
{
	for($j=$i+1;$j<$arraylength;$j++)
	{
		if($array2[$i]eq $array2[$j])
		{
			$array3[$i] = $array1[$j];
		}
	}
}
#Step no.3
for($i=0;$i<$arraylength;$i++)
{
	for($j=0;$j<$arraylength;$j++)
	{
		if($array2[$i]eq $array1[$j])
		{
			$array4[$i] = $array3[$j];
		}
			}
}