Ввести 5 число и напечатать строки из соответствующего количества звездочек

#!/usr/bin/perl
 
print "Enter to 5 chisel: ";
my @array;
 
for($i=1; $i<=5; $i++){
    print "Chislo = ";
    @array = <STDIN>;
    chomp $array[i];
}

#!/usr/bin/perl
 
print "Enter to 5 chisel: ";
my @array;
 
for($i=1; $i<=5; $i++){
print "Chislo = ";
@array = <STDIN>;
chomp $array[i];
}

my @array;
my @arr=(10,15,20,25,30);
print "Введите 5 чисел \n";
for(my $i=0;$i<5;$i++)
{
$array[$i]=int(<STDIN>);# считываем число
}
foreach(@array)
{
    print "$_\n";# выводим каждый элемент массива
}

chomp $array[i];

print "Enter to 5 chisel: ";
my @array = <STDIN>;
 
for($i=0; $i<5; $i++){
 
print "$array[$i]";
}

    unless ($input =~ /\d*/ and $input >= $min and $input <= $max) {
        print "Число должно быть между $min и $max.\n";
        next;
    }

#!/usr/bin/perl
 
my @array;
my @arr=(10,15,20,25,30);
print "Vvedite 5 chisel: \n";
for(my $i=0;$i<5;$i++)
{
$array[$i]=int(<STDIN>);
}
  print "Massiv:\n";
foreach(@array)
{
    print "$_\n";
    
}
for(my $i=0;$i<5;$i++)
{
    for( my $j=0;$j<$array[$i];$j++)
    {
        print "*";
    }
    print "\n";
}

foreach(@array)
{
    print "*"x"$_","\n";
}

#!/usr/bin/perl
# test.pl
 
use warnings;
use strict;
 
sub get_number {
    my ($min, $max) = @_;
    my $input = <>;
    chomp $input;
    unless ($input =~ /^\d+$/ and $input >= $min and $input <= $max) {
        print "Число должно быть между $min и $max.\n";
        return;
    }
    return $input;
}
 
sub main {
    my ($numbercount, $min, $max) = @_;
    print "Введите $numbercount чисел.\n";
    my @numbers;
    while (scalar @numbers < $numbercount) {
        my $input = get_number($min, $max);
        push @numbers, $input if defined $input;
    }
    foreach (@numbers) {
        print "*" x $_ . "\n";
    }
}
 
main(5, 1, 30);

chomp (my $input = <>);

use IO::Prompter;
 
my $num = prompt( q/Введите целое число:/ , -integer);
 
print "*" x $num, v10;

use Regexp::Common;
 
 while (<>) {
        /$RE{num}{real}/                and print q{a number\n};
        /$RE{quoted}                    and print q{a ['"`] quoted string\n};
        /$RE{delimited}{-delim=>'/'}/   and print q{a /.../ sequence\n};
        /$RE{balanced}{-parens=>'()'}/  and print q{balanced parentheses\n};
        /$RE{profanity}/                and print q{a #*@%-ing word\n};
 }

use utf8;
use IO::Prompter;
 
sub простое {
 
# Miller–Rabin primality test 
#Тест Миллера — Рабина — вероятностный полиномиальный тест простоты.
#Тест Миллера — Рабина, наряду с тестом Ферма и тестом Соловея — Штрассена, позволяет эффективно определить,
#является ли данное число составным. Однако, с его помощью нельзя строго доказать простоту числа.
#Тем не менее тест Миллера — Рабина часто используется в криптографии для получения больших случайных простых чисел.
#Изначально алгоритм был разработан Гари Миллером в 1976 году. Алгоритм Миллера является детерминированным,
#но его корректность опирается на недоказанную расширенную гипотезу Римана. Майкл Рабин модифицировал его в 1980 году.
use bigint;
 
        my $n = shift;
        $k = 10; # точность теста Миллера-Рабина
        return 1 if $n == 2;
        return 0 if $n < 2 or $n % 2 == 0;
 
        $d = $n - 1;
        $s = 0;
 
        while(!($d % 2))
        {
                $d /= 2;
                $s++;
        }
 
   LOOP: for(1..$k)
        {
                $a = 2 + int(rand($n-2));
 
                $x = $a->bmodpow($d, $n);
                next if $x == 1 or $x == $n-1;
 
                for(1..$s-1)
                {
                        $x = ($x*$x) % $n;
                        return 0 if $x == 1;
                        next LOOP if $x == $n-1;
                }
                return 0;
        }
        return 1;
}
 
# Собсно полностью рабочая программа с модулем IO::Prompt,
# реализующим разнообразные проверки введенного числа,
# может выглядеть так:
 
my $число = prompt 'Введите целое нечетное простое число от 1 до 100:',
   -integer,
   -must => { 'Должно быть нечётным'            => sub { (shift) % 2 },
              'Должно быть в пределах 1-100'    => [1..100],
              'Должно быть простым'             => \&простое,
            };

$a = $b or $c; # ошибка, т.е. не то, что предполагалось
($a = $b) или $c; # на самом деле это означает данный код
 
$a = $b || $c; # лучше писать так

@info = stat($file) || die;     # oops, scalar sense of stat!
@info = stat($file) or die;     # better, now @info gets its due

if ($input >= $min and $input <= $max) { ... }

if (($input > $min) and ($input < $max)) { ... }

if (($input > ($min && $input)) < $max) { ... }

if (($input > $min) and ($input < $max)) { ... }
if (($input > $min) && ($input < $max)) { ... } # тоже самое

#!/usr/bin/perl -w
 
use strict;
use warnings;
use feature 'say';
use Data::Printer;
 
my ($input, $min, $max) = (5, 0, 10);
if ($input >= $min and $input <= $max) {
  say $input;
}
 
for my $filename ("./test", "./$0", "") {
  # Здесь данный код эквивалентен следующему:
  # open (my $fh, '<', ($filename || die "Cannot open file $filename: $!"));
  # т.е. сначала выполняется код ($filename || die "Cannot open file $filename: $!"), затем код в open()
  # для первых двух значений die не вызывается, т.к. $filename возвращает true и на этом все заканчивается (вычисление передается в open)
  # для последнего значения для $filename возвращается false, значит переходим к die
 
  #my $fn = ($filename || 'hi');
  #p $fn;
  #open (my $fh, '<', $fn);
 
  open my $fh, '<', $filename || die "Cannot open file $filename: $!";
  # так будет правильно
  #   open(my $fh, '<', $filename) || die "Cannot open file $filename: $!";
  # и так
  #   open(my $fh, '<', $filename) or die "Cannot open file $filename: $!";
  # и так, потому что 'or' имеет самый низкий приоритет (в данном случае ниже, чем списочного оператора (вправо))
  #   open my $fh, '<', $filename or die "Cannot open file $filename: $!";
  # в данном случае списочным оператором является функция open
  # Если говорить по-существу, то в Perl функций нет, а есть только списочные и унарные операторы, ведущие себя как функции,
  # поскольку их аргументы заключены в круглые скобки
  # например, open и print это списочные операторы, а each, fc, lc, int и т.е. - унарные
 
  print for <$fh>;
  close $fh;
}

# что выведет данный код (не запуская программу)
$num = ('один', 'два', 'три');
say $num;