my %months = ( JAN => '01', FEB => '02', MAR => '03', APR => '04',
               MAY => '05', JUN => '06', JUL => '07', AUG => '08',
               SEP => '09', OCT => '10', NOV => '11', DEC => '12'
);

my %records;
while( $line = <DATA> ) {
  chomp( $line );
  my @line = split( /\|/, $line );
  my @date = split( /-/, $line[-1] );
  
  # bad practice here .. hopefully no dates from 
  # last century (or next)
  my $year = "20" . $date[2];
  my $mon  = $months{$date[1]};
  my $day  = (split( /\s+/, $date[0]))[1];
 
  # push onto array in case multiple events for date
  push( @{$records{$year.$mon.$day}}, $line );
}

foreach my $date ( sort keys %records ) {
  foreach my $record ( @{$records{$date}} ) {
    # do your thing
  }
}