#!/usr/bin/perl
use strict;
use warnings;

my (%data, $acct, $close_date, $create_date);
while (<DATA>) {
    next if /^Remedy Account data:/ .. /^Remedy Case data:/;
    if (/^ACCOUNT-(\d+)/) {
        $acct = $1; 
    }
    elsif (/^ClosedDate = ([-\d :]+)/) {
        $close_date = $1;   
    }
    elsif (/^CreatedDate = ([-\d :]+)/) {
        $create_date = $1;
        $data{ $acct } = { closed => $close_date, created => $create_date}; 
    }
}
use Data::Dumper;
print Dumper \%data;

##</code><code>##

$VAR1 = {
          '09782' => {
                       'created' => '2007-10-23 21:10:10',
                       'closed' => '2007-10-26 16:31:53'
                     }
        };