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 @totlines;
push (@totlines,\@line1);
push (@totlines,\@line2);
push (@totlines,\@line3);

my @dir1 =('_W9C2JJDCB',
          '201200240',
          'TEST: IGNORE',
          'John Doe',
          'Closed',
          'HIP',
          'email@email.com',
          'email2@email.com',
          
	  );
my %hash = ( '_W9C2JJDCB' => \@dir1);

#At this point I have one hash (which may have many key/values) and one array which could have many array refs