sub foo {
  my @a = qw(first second third);
  my ($a) = @a;
};