use strict;
use warnings;
use 5.012;

#Rule: sub names are entered into the symbol table.
sub abc {
    print "abc\n";
}

sub xyz {
    print "xyz\n";
}

local *abc; #gets rid of 'redefined main::abc' warning'
*abc = \&xyz;
abc;

--output:--
xyz