my %tmp = %$test;
    delete $tmp{$first};
    my @list3 = ([$first, ''], map {[$_, $_]} sort keys %tmp);