Help for this page
$uniq{"$file"} = ({"suffix1"=>"$suff"}); $uniq{"$file"} = ({"suffix2"=>"$suff"});
foreach my $key (sort keys %uniq){ if ((exists($uniq{$key}{suffix1}) && ($uniq{$key}{suffix2}))){ .....