Another option would be to store the suffixes as an anonymous array.

To define:

$uniq{$file} = [ $suffix1, $suffix2 ];
[download]

To access:

print $uniq{$file}[0], "\n";
print $uniq{$file}[1], "\n";
[download]