JIRA: COM-1234
Program:Development
Reviewer:John Wick 
Description:Genral fix
rev:r345676
------------------------------------------
JIRA:COM-1234
Program:Development
Reviewer:None
Description:Updating Received 
rev:r909276
------------------------------------------
JIRA: COM-6789
Program:Testing
Reviewer:Balise Mat
Description:Audited
rev:r876391
------------------------------------------
JIRA: COM-6789
Program:Testing
Reviewer:Chan Joe
Description:SO hwat 
rev:r698392
------------------------------------------
JIRA: COM-6789
Program:Testing
Reviewer:Chan Joe
Description:Paid the Due
rev:r327896
------------------------------------------

##</code><code>##

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

my @records = do {
  local $/ = '------------------------------';
  <>;
};

chomp @records;

my %jira;

foreach (@records) {
  next unless /\S/;

  my %rec = /^(\w+):\s*(.+?)$/mg;
  push @{$jira{$rec{Program}}{$rec{JIRA}}}, \%rec;
}
#say Dumper \%jira;

foreach $prg (keys %jira) {
	print "============================================================\n";
	print "	PROGRAM : prg				  								\n";
	print "============================================================\n";
	
	foreach $jira (keys %{$jira{$prg}}) {
		
		print "******************\n";
		print "JIRA ID : $jira\n";
		print "******************\n";
		@myarr = @{$jira{$prg}{$jira}};

		foreach $val (@myarr) {

			 for $i ( 0 .. $#myarr ) {
				print "NO:$i\n";
				foreach $key (keys %{$myarr[$i]}) {
					#print "KEY: $key\n";
					print "  ======> $val[$i]{revision}\n";
				}
			}
		}
	}
}


##</code><code>##

==================================
		Program: Development
===================================
*****************
JIRA ID: COM 1234 
*****************
rev => r345676
Reviewer => John Wick
Description => Genral fix

rev => r909276
Description => Updating Received
Reviewer => None

==================================
		Program: Testing
===================================
*****************
JIRA ID: COM 6789
*****************

rev => r876391
Description => Audited
Reviewer => Balise Mat

rev => r698392
Reviewer => Chan Joe
Description => SO hwat

rev => r327896
Reviewer' => Chan Joe
Description' => Paid the Due