my $x= "foo";
    print $x= "bar";