package MyApp::Mistake;
my $destination;
sub TIEHASH { ... }
sub STORE {
    my ($self, $key, $value) = @_;
    $destination->{$key} = $value;
}
sub set_destination { $destination = $_[1] }

package MyApp::PageController;
my %URI_enabled;
MyApp::Mistake->set_destination( \%URI_enabled );