use warnings; 
..
# in the block
no warnings qw(uninitialized);