no strict;
if (defined $$newvarname) {
    $$var = $$newvarname;
}