Perl based Whirlpool