Вычислить сумму элементов одномерного массива, лежащих в диапазоне чисел от A до B

print "Vvedite kolichestvo elementov \n";
$k = <>;
@mas = ();
for ($i=0; $i<k; $i++)
{
    $mas[$i] = rand(100);
}
  foreach my $element (@mas)
  { # $element is sininiv print "$element " ;
  }
$sum = 0;
for ($i=0; $i<k; $i++)
 {
    $sum += $mas[$i];
 }
print "\n";
print 'summa=';
print $sum;

use strict;

#!perl
use strict;
use warnings;
use utf8;
 
my $sum = 0;
    for ($ARGV[0]..$ARGV[1]) {$sum += $_;}
print "$sum\n";

#!perl
use strict;
use warnings;
use utf8;
 
print "write numbers \n";
my @array = (<STDIN>);
my $summa = 0;
foreach my $number (@array) {$summa += $number;}    
print "$summa\n";

#!perl
use strict;
use warnings;
use utf8;
my $sum = (100+1)*50;
print "$sum\n";

print "Vvedite kolichestvo elementov \n";
$k = <>;
print "Vvedite element A \n";
$A = <>;
print "Vvedite  element B \n";
$B = <>;
@mas = ();
for ($i=0; $i<$k; $i++)
{
    $mas[$i] = rand(100);
}
  foreach my $element (@mas)
  { # $element is sininiv
    print "$element " ;
  }
$sum = 0;
for ($i=0; $i<$k; $i++)
 {
    if (($mas[$i] > $A) && ($mas[$i] < $B))
   { $sum += $mas[$i];}
   else{}
 }
print "\n";
print 'summa=';
print $sum;

#! /usr/bin/env perl
#
# Вычислить сумму элементов одномерного массива, лежащих в диапазоне чисел от N до M
#
 
use strict;
 
sub prompt_i {                  # подпрограмма запроса на ввод целого числа или чисел и возврат числа или чисел в зависимости от контекста вызова
 
    print shift;
    $_ = <>;
    my @a = /\d+/g;
    return wantarray ? @a : "@a";
}
 
my $d = prompt_i "Введите размерность массива: ";
 
my @a;
for ( 1 .. $d ) {               # генерация массива 
    
    push @a, int(rand(100));
}
 
print join(', ', @a), "\n";     # показ массива
 
my ($n, $m) = prompt_i "Введите диапазон N,M: ";
 
($n,$m) = ($m,$n) if $m < $n;   # если введён отриц. диапазон, преобразовать его в положительный
 
my $sum;
for ( @a ) {
 
    if ( $_ >= $n and $_ <= $m ) {
        
        print "$_ + ";
        $sum += $_;
    }
}
print " = $sum\n";              # показ результата