sub FOO  { 1; }
                                                                                
sub BAR () { 2; }
                                                                                
my $foo = FOO 1;
                                                                                
my $bar = BAR 1;