Ten out of ten for good answer, but minus one for repeatingt the same data twice literally. :-)

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

    -- Chip Salzenberg, Free-Floating Agent of Chaos