Aunque en Perl "hay más de una forma de hacerlo".