sub func {
  my ($code,@a) = @_;
  my $b = [@a];
  eval $code;
  return $b;
}