gistfile1.pl

use strict;
use warnings;

use 5.010;

my $var;
$var //= 2;
say $var;

my @array_multiplied = qw(3 5 7) x 3;
say @array_multiplied;