#!/usr/bin/perl
use strict;
use warnings;

my %Data = (
	04 => 'BQADAQMB  (part 2 of 3 of message reference 1)',
	05 => 'BQADAQMC  (part 1 of 3 of message reference 1)',
	06 => 'BQADAQMD  (part 3 of 3 of message reference 1)',
	16 => 'BggEAAIDAQ==  (part 4 of 3 of message reference 2)',
	17 => 'BggEAAIDAg==  (part 2 of 3 of message reference 2)',
	18 => 'BggEAAIDAw==  (part 3 of 3 of message reference 2)',
);	

my %table;

foreach my $key (sort keys %Data)
{
	my $lValue = $Data{$key};
	my @array = split ' ', $lValue;
	my $lPartStart = $array[2];
	my $lPartEnd = $array[4];
	my $lReference = $array[8];
	chop($lReference);
	$table{$lReference} = [] unless exists $table{$lReference};
	push @{$table{$lReference}}, $lPartStart;
}

foreach my $lReference (sort keys %table)
{
	print "Ref: $lReference, parts: ";
	my @parts = @{$table{$lReference}};
	print join ', ', sort @parts;
	print "\n";
}