$ perl -le'
   use strict;
   use warnings;
   BEGIN {
      my $pkg = "Foo::Bar";
      my $var = "s";
      no strict "refs";
      ${"${pkg}::$var"} = 123;
   }
   print $Foo::Bar::s;
'
123