main @> $test = 1 1 main @> defined $test 1 main @> defined %test '' main @> %test2 = 1,2 1 2 main @> defined $test2 '' main @> defined %test2 1 main @> %test3 = () undef main @> defined %test3 '' main @> defined $test3 ''