#!/usr/bin/perl
use strict;
use warnings;
my $sub = 'foo';
{
    no strict 'refs';
    *{ $sub } = sub { return 'bar' };
}
print foo();