sub fun2 {
    my $a;
    print $a;  # undef warning *
    $a = 33;
}