Я бы взял join:

print ${fh} join("\t" => @{$ref}), "\n" if ${$ref[2]} > 100;

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

$id=$ref[0];$pname=$ref[1];$points=$ref[2];
print $fh "$$id\t$$pname\t$$points\n";

ИМХО, не читабельно, но так тоже можно. ЕМНИП, там был метод который возвращает hash табличку, и тогда у тебя будет что-то вроде:

$VAR1 = {
    id => 1,
    pnames => "la-la",
    points => 333,
}

А разве перл ещё жив? Чем тебе python не угодил?

while ($ref = $sth->fetchrow_arrayref) {
  print $fh "$$ref[0]\t$$ref[1]\t$$ref[2]\n";
}

Можешь заменить на:

while (my @arr = $sth->fetchrow_array) {
  say $fh join "\t",@arr;
}

Или на такое:

while (my $ref = $sth->fetchrow_hashref) {
  say $fh join "\t",$ref->{id},$ref->{pnames},$ref->{points};
}

Работает, задачу выполняет. И на том спасибо, но от меня:

• my $filename = 'test.txt';
  $host = "localhost";
  
  ....
  open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
  

  Либо используем strict (common::sense), либо нет. Воспринимаю и то, и другое, но исключительно в раздельном виде.

• $sth = $dbh->prepare("select * from players where points>100"); 
  $sth->execute;
  

  Заменить на

  $sth = $dbh->prepare("select * from players where points>?"); 
  $sth->execute(100);
  

• printf $fh "%s\t%s\t%s\n", $$ref[0], $$ref[1], $$ref[2];
  

  Длиньше, но переменки и формат строки видно нормально

Питон уже научился отлавливать опечатки в именах переменных в компайл-тайме?

Традиционно

use strict;
use warnings;
use diagnostics;

А ты сам то еще жив? Может твой мозг уже умер и это последние нейроны тебя вводят в заблуждение, что ты читаешь лор

Почему my только для $filename и где use strict?

print $fh join "\t", @$ref;

ну ньюлайн сам добавь, или say, хотя нет , лучше добавь сам )))

use diagnostics;

школоло-стайл )))

будет глупо. чтобы стало правильно, добавь стрелку после ссылки

а лучше используй константы-индексы

Упражнение кто как извернётся на простом задании?

$fh->print(join "\n", 
    map {join "\t", @$_} 
    @{$dbh->selectall_arrayref(
         "select * from players where points > ?", undef, 100)}
);

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

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

$dbh->selectall_arrayref($query, {Slice => {}}, @params)

Питон уже научился отлавливать опечатки в именах переменных в компайл-тайме?

А перл умеет?

А перл умеет?

use strict;

Однако

А как в перл выглядит компайл-тайм? Я просто не в курсе. Вот в питоне из исходника создается байткод, а в перл? Не слышал про перловый байткод. В питоне имена переменных ссылки, без рантайма не определишь, опечатка ли или нет. С другой стороны, могли бы написать кодек, который проверял опечатки. Что-то вроде:

# coding: strict

Почему-то не нужно.

Питон уже научился отлавливать опечатки в именах переменных в компайл-тайме?

К счастью, нет.

всякие чекеры кода умеют. не то, чтобы они тебе сказали, что мол вот, чувак, ты ошибся, но что-то типа «unknown variable» или «assigned but never used» высрут. тем более, что к виму отличну прикручиваются.

А как в перл выглядит компайл-тайм?

Стартовая точка для тех, кто ищет знания: http://perldoc.perl.org/B.html

К счастью, нет.

Это же просто прелестно!

Почему-то не нужно.

Весь мир из компромиссов. В питоне выбрали свой набор.