hoge.pl

use strict;
use warnings;

no strict 'refs';
*{'even?'} = sub {
    return !($_[0] % 2);
};

for my $i (1..10) {
    if (&{'even?'}($i)) {
        print "$i is even.\n";
    }
}