my $moyr = "12/2014";

my ( $month, $year ) = split /\//, $moyr; 

say for ( $month, $year );