sub someSub {
    my $x = 123;
    print "$x\n";
    $x *= 2;    #seems pointless, since $x not used again, 
                # but will cause 246 to be returned
}