my $x;                              # declare first
    $x  = 5;                            # strict okay
    print "$x\n";