my $a=@_[0];