Зачем здесь категория Perl, если почти никто давно на нём не программирует?

обучение основам

Зачем здесь ты если ты все равно в этой жизни никому не нужен.

зачем в супермаркете 100 разных шампуней? какой все-таки лучше?

зачем 100 разных клеев фирмы Момент и все клеи клеят всё?

массовая аудитория она такая.
авторы сайта - веб разрабы и на перле когда-то писали. вот и разбили по своему вкусу.
а если ты со своей логикой сюда припрешься, то ожидаемой пользы не будет.

На нем давно никто не программирует?! Ты походу мир за пределами СНГ не видал.

Это категория ждет когда я найду свою книгу про ламу и начну годноту писать

Она нужна для того, чтобы я всегда жаловался на такие вопросы в этой категории и ее вычищали.

А я вот из спортивного интереса немножко пробую на нем программировать
#!/usr/bin/perl -W
use warnings;
use Scalar::Util qw(looks_like_number);

sub test {
@arr = ();
$i = 1;
while ( $i <= 10 ) {
$elem = ;
$isnum = looks_like_number($elem);
if ( !$isnum ) {
print 'no number';
print "\n";
@arr = ();
last;
}
push @arr, $elem;
$i++;
}
@b = ();
print @arr;
for ( $i = 0 ; $i < @arr ; $i++ ) {
for ( $j = 0 ; $j < @arr ; $j++ ) {
next if $i == $j;
if ( $arr[$i] == $arr[$j] ) {
push @b, $arr[$i];
$n = $arr[$i];
for ( $k = 0 ; $k < @arr ; $k++ ) {
if ( $arr[$k] == $n ) {
splice @arr, $k, 1;
print $k . ' ----';
print "\n";
print @arr;
}}
}
}
}
print "\n";
if ($isnum) {
print "Not repeat";
}
print "\n";
print @arr;
print "\n";
if ($isnum) {
print "Repeat";
}
print "\n";
print @b;
}
test();