Yo in Perl