my $a;
$a = $a x 10;
my @a = (1, 2, 3) x $a
