sub test {
  @a = @_;         print(@a);   # abc
  $a = scalar(@_); print($a);   # 3 (number of elements)
  $a = @_;         print($a);   # 3 ($a is a scalar)
  $a = $_[0];      print($a);   # a
  ($a) = @_;       print($a);   # a
}

$\ = "\n";
test('a', 'b', 'c');