my @i = (2..4);
    @$x{@i} = @parm{@i};