#!/usr/bin/perl
use strict;
use warnings;

my $xxx = 1234;

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

warn $xxx;