if ( my $a = 2 )
{
    print "Assigned a value to $a";
}