my @a=(3,4);

sub x {
  @a = ();
  print "[$_]" for @_;
  print "\n";
}

x(@a);