# Parse the log record...
m{^(\d\d)/(\d\d)/(\d\d\d\d) (\d\d:\d\d:\d\d) (\S+) (\S+)} or die;

my $timestamp = "$3-$1-$2 $4";
my $data1     = $5;
my $data2     = $6;
my %myHash;

push @{ $myHash{$data2}{'info'} }, "$timestamp,$data1";