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