my $fred = undef;
my @jock = ();