Using runrig's example:

my %opts;
GetOptions(map { ($_ => \$opts{$_}) } "a".."z");
my @selected = grep { $opts{$_} } keys %opts;
[download]