my $cmd = '$var1 = 5';

eval "$cmd";

print $var1;