Select Code to Download

while( my ($k, $v) = each(%ENGINES)){
    push @eng, $v->{'name'};
}

for my $k (keys %ENGINES) {
    my $v = $ENGINES{$k};
    push @eng, $v->{'name'};
}