my $a;
$a = reverse(@_);
$a = reverse($a);
scalar(reverse(@_));
my @a;
@a = reverse(@_);
@a = reverse(@a)
