Select Code to Download

my $aref = [{DB => 'Alpha',
             SOURCE => 'here'},
...
             SOURCE => 'there'},
            {DB => 'Gamma',
             SOURCE => 'someplace'}];

my @list = @$aref[0..2]->{DB};