Select Code to Download

use ar ;
my @ar ;
my $art = tie @ar, "ar" ;
@ar = (1, 2) ;

   my @ar-deref = @{$art};