my $a = sub {};
$b = sub($){};
$c = sub (&$@) {};