Составьте программу , которая находит сумму квадратов чисел от 1 до 10, 1(2)+1(2)+3(2)+..10(2), номер два составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100. 1+3+5++99, 2 это степень

На Perl(сначала выводит первую задачу, потом вторую):

#!/usr/bin/perl
for(1..10){$sum=$sum+($_**2)};
print "$sum\n";

for(1..100){if ($_%2!=0){$sum=$sum+$_}};
print "$sum\n";