#!/usr/bin/env perl
use strictures;
use utf8;
use DateTime::Calendar::Hebrew;

my $count;
my %months = map {; $_ => ++$count }
    qw/ Nissan Iyar Sivan Tamuz Av Elul Tishrei
        Cheshvan Kislev Tevet Shevat AdarI AdarII /;

for ( <DATA> )
{
    my ( $day, $month_name, $year ) = split;
    my $dt = DateTime::Calendar::Hebrew
        ->new( year  => $year,
               month => $months{$month_name},
               day   => $day );

    print $dt->ymd, $/;
}

__DATA__
15 Elul 5776

##</code><code>##

5776-06-15