foreach my $rt ( @{$first{$fr}{$tg}{$ab}}){