my $foo = [1..4];
print $foo, $/;
$foo = {@$foo};
print $foo, $/;
$foo = [%$foo];
print $foo, $/;