Re^2: Elegantly dereferencing multiple references

as compensation an even less elegant (read uglier) attempt for a one liner:

sub assign {
   %$_ = %{shift @_} for \ (my (%a, %b, %c));
   dd ["assign", \(%a, %b, %c) ];
}
assign( \(%x, %y, %z));
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)

Je suis Charlie!}

Comment on Re^2: Elegantly dereferencing multiple references Download Code