Select Code to Download

my $ref = \ (1, 2, 3);
print ${$ref}, "\n";

my @ref = \ ( 1, 2, 3 );
print ${$_}, "\n" for @ref;