#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

open FILE ,"temp" or die("can not open temp $!");

my $line ;
my (%resultarray,$part1,$part2);
my @AoH=();

while($line = <FILE>) {
chomp($line);
($part1,$part2) = split(/#/,$line);

my @resultarry2=split(/\s/,$part1);

%resultarray=split(/[=;]/, $part2);

my $datetime="$resultarry2[1] $resultarry2[2]";
my $threadname=$resultarry2[6];

$resultarray{"datetime"}=$datetime;
$resultarray{"threadname"}=$threadname;

push @AoH, \%resultarray;

}
close(FILE);

my $numberofhashes=scalar(@AoH);
print $numberofhashes."\n";
my $hr2=\@AoH;
print Dumper $hr2;