my, local and global variable
$value1 = 1; my $value2 = 2; local $value3 = 3; print join(", ", keys %::);