When you 'use strict' you have to declare your variables with 'my'.

use strict;

my $foo;     # declared correctly
my @bar;     # declared correctly
my $foobar = "declared correctly";
[download]

- kel -