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