my $one = 1;
print "one $one\n";
if ( $one = 2){
   print "one $one\n";
   $one = 22;
} else {
   $one = 3;
}
print "one $one\n";
__END__
one 1
one 2
one 22