my $New_mo;

# ==, not =
if ($Month == 0)
{
    # no my!
    $New_mo = 'Jan';
}
if ($Month == 1)
{
    $New_mo = 'Feb';
}
# ...