ola ke ase, en Perl