use strict;
use warnings;
use feature "say";
#no warnings 'redefine';
sub tst {1} 
BEGIN { $a = \&tst }
sub tst {2}
BEGIN { $b = \&tst }              
say &$a;
say &$b;