my @a=(3);
sub x {
  @a = map {$_*2} @_;
  "@_" eq "6" or die
}
&x(@a);