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