use strict;
use warnings;

package Hack;

sub slash {
   my $var_ref = do { no strict 'refs'; \${'ExistingPackage::var'} };
   $$var_ref = 'bar';
}


package main;

ExistingPackage->print_it();
Hack->slash();
ExistingPackage->print_it();