my $a=shift;