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