programming-examples/perl/Subroutine/my, local and global variable.pl

$value1 = 1;

my $value2 = 2;

local $value3 = 3;

print join(", ", keys %::);