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