my($n,@e,$o) = @_;

#note this is the same as:
my $n = $_[0];
my @e = @_;
my $o;