%parm = (
	 1 => 2,
	 2 => 3,
	 3 => 4,
	 4 => 5,
	 5 => 6 );
	

# useful for $object = Class::Name->new($x); 
# where only a subset of %parm is needed

$x = { @parm{2..4} };   # fails
$x =  \@parm{2..4};     # fails
$x = { 2 => $parm{2},   # trying to avoid
       3 => $parm{3},
       4 => $parm{4} }; 

use Data::Dumper;

print Data::Dumper->Dump([$x],['x']);
print $/;