Help for this page
$uniq{$file} = [ $suffix1, $suffix2 ];
print $uniq{$file}[0], "\n"; print $uniq{$file}[1], "\n";