my $foo;

# 20 zeilen später
$foo = 23;