The size of your format_date subroutine is too big; you should cut that down into smaller more readable blocks. You should also avoid the use of numbers as switchs to determine the output. Use CONSTANTS or Readonly variables to improve the readability.