our $var = "zappa";

$Bubba::{abba} = *var;

print $Bubba::abba;