Select Code to Download

my %files = (
    dev    => [qw(dev_file1 dev_file2 dev_file3 dev_file4)],
...
);

my $files = $files{$access};