use strict;
use Data::Dumper; 

my @line1 = ('_W9C2JJDCB','<P>This is the problem1.</P>','<P>This is res1</P>');
my @line2 = ('_W9C2JJDCB','<P>This is the problem2.</P>','<P>This is res2</P>');
my @line3 = ('_W9C2JJDCB','<P>This is the problem3.</P>','<P>This is res3</P>');
my @line4 = ('_W8CXXXXAB','<p>hi there</p>','<p>why are you capitalizing paragraph tags?</p>');

my @totlines;
#push (@totlines,\@line1);
#push (@totlines,\@line2);
#push (@totlines,\@line3);
push @totlines, \@line1, \@line2,\@line3,\@line4;

my @dir1 =('_W9C2JJDCB',
          '201200240',
          'TEST: IGNORE',
          'John Doe',
          'Closed',
          'HIP',
          'email@email.com',
          'email2@email.com',          
    );
my @dir2 = ( '_W8CXXXXAB',
             '2012192222',
             'WHAT: HELL',
             'Captain Jack',
             'Wide Open',
             'UNCOOL',
             'you@notme.com',
             'stillyou@notme.com');

my %hash = ( '_W9C2JJDCB' => \@dir1);
$hash{'_W8CXXXXAB'} = \@dir2;


for my $key (keys %hash){
     foreach my $u (@totlines)
     {
	 if($key eq $u->[0])
         {
	     #print qq|$key is equal to $u->[0]\n|;
             push @{$hash{$key}},@$u;
             
         }
     }
}
print Dumper \%hash;