use A qw/a/;
a my ($b, $c);