for($a=0;$a<=scalar(@hfr);$a++)
{
my @matching_indices=indexes {$hfr[$a]}@gl;
my @matching_values=@gl[@matching_indices];  
print "a=$a\n";
use Data::Dumper; print Dumper(\@matching_indices);
print "$matching_indices[$a]";
}