our $dog;
    my $pet     = 'dog';
    ${ $pet }   = 'Rover';              # no strict 'refs'
    print "$dog\n";