#!/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";
				}
			}
		}
	}
}