Select Code to Download

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

print $files{dev}[0];

my @dev = @{ $files{dev} };
print $dev[0];