Select Code to Download

my @Variables = ( $Map_Request_Date,$Map_Due_Date,$Map_Cutover_Date,$M
+ap_Complete_Date,$Map_Approved_Date);

my($foo, $bar) = (1,2);
my @vars = ($foo, $bar);
...
@vars: 5 6
$foo: 1
$bar: 2

my($foo, $bar) = (1,2);
foreach my $var ($foo, $bar) {
...
__END__
$foo: 5
$bar: 6

my($foo, $bar) = (1,2);
my @vars = \($foo, $bar); # note the backslash before the list
...
@vars: SCALAR(0x15ae7a0) SCALAR(0x15ae830)
$foo: 5
$bar: 6

{
  my %Months = (...);
...
  }
}
# %Months not defined here anymore

my %Months = (Dec => 12);
my $date = 'Dec  1 2016 18:15';
...
print "date: '$date'\n";
__END__
date: '12 01 2016 18:15'