Как мне умножить каждый член массива на скаляр в Perl?

Вот код ...

use strict;
use warnings;

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

@array= $scalar*@array;

print @array;

Нужно что-то, что может выполнять аналогичную функцию с небольшим кодом. Спасибо!