my $speedlist = ....;
my @cmd_choices = map {{-name=>$_, -value=>$speedlist->{$_}}} keys %$speedlist;