Select Code to Download

#!/usr/bin/perl
use strict;
...

my @files = uniq map {keys %{$files{$_}}} keys %files;
pp \@files;