my @data = 1 .. 10;

for my $item (@data) {
    $item *= 5;
}

print "@data\n";