%Months = (
'Jan'=>1,
'Feb'=>2,
'Mar'=>3,
'Apr'=>4,
'May'=>5,
'Jun'=>6,
'Jul'=>7,
'Aug'=>8,
'Sep'=>9,
'Oct'=>10,
'Nov'=>11,
'Dec'=>12
);

$_='Jan 2007';

if ($_=~/(\w{3}) (\d{4})/) {
  ($m,$y) = ($Months{$1},$2);
  $f=$y;
  $s=$y;
}

if ($m >= 1 && $m <= 6) {
   print "FY - Jul " . --$f . " - Jun " . $s . "\n";
} elsif ($m >= 7 && $m <= 12) {

   print "FY - Jul " . $f . " - Jun " . ++$s . "\n";
}