如何将每个数组成员乘以perl中的标量？

Here is the code...

这是代码......

use strict;
use warnings;

my @array= (1,2,3,4,5);
my $scalar= 5;

@array= $scalar*@array;

print @array;
use strict;