BEGIN {
    $xxx = 1234;
}
warn $xxx;