#!/usr/bin/perl

use strict;
use warnings;

our $foo="foo";
my $bar="f";

no strict 'refs';
print ${$bar.'oo'}, "\n";