my $multiple = 3;
my @arr = map { $_ * $multiple } (0 .. 100);

# Or, you could do a for-loop

my $multiple = 3;
my @arr;
$arr[$_] = $_ * $multiple for (0 .. 100);