my $speedlist = $heap->{config}{freq_gui}{speedlist}; # (updated, see AnomalousMonk below)
push @cmd_choices, map { {name=>$_, value=>$speedlist->{$_}} } keys %$speedlist;

##</code><code>##

my ($k,$v); push @c, {n=>$k, v=>$v} while ($k,$v) 
    = each %$speedlist;