my ($date)
##</code><code>##

use strict;
use warnings;
use 5.010;

my ($a, $b) = (1, 2, 3);
say $a;    #1
say $b;    #2