foreach my $var (@varaints) 
{
push @filesToCompre , &Get_Affected_Files_Contents($fullPath,$filePattern,$var,$PackDir);

`comm -13 $filesToCompre[0] $filesToCompre[1] |egrep -v "$IgnoreFiles " > $Diff_File_64_64OG`;

 sub Get_Affected_Files_Contents
{
`less $fullPath/$filePattern | awk '{print \$4}' | egrep -v "$IgnoreFiles" | cut -d\/ -f6- -s | sort > $Affected_fileName`;
}

}