OddsConverter in Perl