my @ar = (1..3);
my $ar = \@ar;
print "@ar | $ar \n";