a my ($b, $c)

##</code><code>##

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

##</code><code>##

my ( $b, $c );
a $b, $c;

##</code><code>##

$b->a($c)