use Date::Calc qw/Month_to_Text/;
while(@data){
  ...
  my $number = shift (@data);
  my $month = Month_to_Text($number);
  ...
}