Não sei como definir argumentos padrão para sub-rotinas. Aqui está o que eu considerei:

sub hello {
  print @_ || "Hello world";
}

Isso funciona bem se tudo o que você precisava era de um argumento. Como você definiria valores padrão para vários argumentos?

Eu ia fazer isso:

sub hello {
  my $say = $_[0] || "Hello";
  my $to  = $_[1] || "World!";
  print "$say $to";
}

Mas isso dá muito trabalho ... Deve haver uma maneira mais fácil; possivelmente uma melhor prática?