Select Code to Download

my ($date)

use strict;
use warnings;
...
my ($a, $b) = (1, 2, 3);
say $a;    #1
say $b;    #2