push @{ $seen{$file} }, $version; print "@{$seen{$file}} \n";