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