$ perl -le '$charlie::delta="foo";($a,$b,$c,$d)=qw( alpha beta charlie delta ); *{"${a}::$b"} = *{"${c}::$d"};print $alpha::beta;'
foo