my @arra = (10,20);
 print ">@main::arra<$/";
 print ">>@arra<<$/";