my ($blah) = @_; ##

##

my $blah = shift;

##

##

my @blah = @_;

##

##

my $blah = @_;

##

##

my $blah = pop;

##

##

$b=pop;