my $a=@_[0];

##</code><code>##

    my ($a)=@_;

##</code><code>##

    my $a=shift;