$uniq{$file} = [ $suffix1, $suffix2 ]; #### print $uniq{$file}[0], "\n"; print $uniq{$file}[1], "\n";