Select Code to Download

€one = @two;
@one = €two;
...
@one = @two;
$one = $two;
$one = \@two;

sub aref2list ($) { return  @{ $_[0] } }
aref2list($hash->{foo,bar}[2]);