[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]Data::Dumper[/green][red];[/red]
[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]%month[/blue] = [red]([/red]
[purple]jan[/purple] => [red]'[/red][purple]00[/purple][red]'[/red],
[purple]feb[/purple] => [red]'[/red][purple]01[/purple][red]'[/red],
[purple]mar[/purple] => [red]'[/red][purple]02[/purple][red]'[/red],
[purple]apr[/purple] => [red]'[/red][purple]03[/purple][red]'[/red],
[purple]may[/purple] => [red]'[/red][purple]04[/purple][red]'[/red],
[purple]jun[/purple] => [red]'[/red][purple]05[/purple][red]'[/red],
[purple]jul[/purple] => [red]'[/red][purple]06[/purple][red]'[/red],
[purple]aug[/purple] => [red]'[/red][purple]07[/purple][red]'[/red],
[purple]sep[/purple] => [red]'[/red][purple]08[/purple][red]'[/red],
[url=http://perldoc.perl.org/functions/oct.html][black][b]oct[/b][/black][/url] => [red]'[/red][purple]09[/purple][red]'[/red],
[purple]nov[/purple] => [red]'[/red][purple]10[/purple][red]'[/red],
[purple]dec[/purple] => [red]'[/red][purple]11[/purple][red]'[/red],
[red])[/red][red];[/red]
[black][b]my[/b][/black] [blue]@records[/blue] = [red]([/red]
[red]{[/red][purple]NAME[/purple] => [red]'[/red][purple]dog[/purple][red]'[/red],[purple]COMPDATE[/purple] =>[red]'[/red][purple]29 sept 2004[/purple][red]'[/red][red]}[/red],
[red]{[/red][purple]NAME[/purple] => [red]'[/red][purple]dog[/purple][red]'[/red],[purple]COMPDATE[/purple] =>[red]'[/red][purple]1 jan 2004[/purple][red]'[/red][red]}[/red],
[red]{[/red][purple]NAME[/purple] => [red]'[/red][purple]dog[/purple][red]'[/red],[purple]COMPDATE[/purple] =>[red]'[/red][purple]31 dec 2004[/purple][red]'[/red][red]}[/red],
[red]{[/red][purple]NAME[/purple] => [red]'[/red][purple]dog[/purple][red]'[/red],[purple]COMPDATE[/purple] =>[red]'[/red][purple]29 dec 2004[/purple][red]'[/red][red]}[/red],
[red]{[/red][purple]NAME[/purple] => [red]'[/red][purple]dog[/purple][red]'[/red],[purple]COMPDATE[/purple] =>[red]'[/red][purple]1 jan 2005[/purple][red]'[/red][red]}[/red],
[red]{[/red][purple]NAME[/purple] => [red]'[/red][purple]dog[/purple][red]'[/red],[purple]COMPDATE[/purple] =>[red]'[/red][purple]14 jan 2007[/purple][red]'[/red][red]}[/red],
[red]{[/red][purple]NAME[/purple] => [red]'[/red][purple]dog[/purple][red]'[/red],[purple]COMPDATE[/purple] =>[red]'[/red][purple]15 oct 2007[/purple][red]'[/red][red]}[/red],
[red]{[/red][purple]NAME[/purple] => [red]'[/red][purple]dog[/purple][red]'[/red],[purple]COMPDATE[/purple] =>[red]'[/red][purple]18 april 2007[/purple][red]'[/red][red]}[/red],
[red])[/red][red];[/red]
[black][b]my[/b][/black] [blue]@sorted[/blue] = [url=http://perldoc.perl.org/functions/map.html][black][b]map[/b][/black][/url] [red]{[/red] [blue]$_[/blue]->[red][[/red][fuchsia]0[/fuchsia][red]][/red] [red]}[/red]
[url=http://perldoc.perl.org/functions/sort.html][black][b]sort[/b][/black][/url] [red]{[/red] [blue]$a[/blue]->[red][[/red][fuchsia]1[/fuchsia][red]][/red] cmp [blue]$b[/blue]->[red][[/red][fuchsia]1[/fuchsia][red]][/red] [red]}[/red]
[black][b]map[/b][/black] [red]{[/red][black][b]my[/b][/black] [red]([/red][blue]$d[/blue],[blue]$m[/blue],[blue]$y[/blue][red])[/red] = [url=http://perldoc.perl.org/functions/split.html][black][b]split[/b][/black][/url][red]([/red][red]/[/red][purple][purple][b]\s[/b][/purple]+[/purple][red]/[/red],[blue]$_[/blue]->[red]{[/red]COMPDATE[red]}[/red][red])[/red][red];[/red]
[blue]$d[/blue] = [blue]$d[/blue]<[fuchsia]10[/fuchsia] ? [red]"[/red][purple]0[blue]$d[/blue][/purple][red]"[/red] : [blue]$d[/blue][red];[/red]
[blue]$m[/blue] = [blue]$month[/blue][red]{[/red][url=http://perldoc.perl.org/functions/lc.html][black][b]lc[/b][/black][/url] [url=http://perldoc.perl.org/functions/substr.html][black][b]substr[/b][/black][/url] [blue]$m[/blue],[fuchsia]0[/fuchsia],[fuchsia]3[/fuchsia][red]}[/red][red];[/red]
[red][[/red][blue]$_[/blue],[red]"[/red][purple][blue]$y[/blue][blue]$m[/blue][blue]$d[/blue][/purple][red]"[/red][red]][/red][red]}[/red] [blue]@records[/blue][red];[/red]
[url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] Dumper \[blue]@sorted[/blue][red];[/red]