package Foo;
use warnings;
use strict;

sub ONE () { 111 }
sub TWO { 222 }
my $three = 333;
sub THREE () { $three }

sub go {
    print "One=", ONE, ", Two=", TWO, ", Three=", THREE, "\n";
}

1;