#!perl

use strict;
use Data::Dumper;
use warnings;


my $Delimiter = chr(253);

my %HostHash;
my (@HostArray, @ProductArray);

my $FIRST = 0;

HOSTPARSE:
while (<DATA>)
{
	s/^\s+|\s+$//g;

	my @fields = split(/$Delimiter/, $_);
	my %fields;

	foreach my $field (@fields)
	{
		my $a1 = substr($field, 0, 3);
		my $a2 = substr($field, 3);
		
		$fields{$a1} = $a2 if $a2;
	}

	if ($fields{BNA})
	{	
		print "$fields{BNA} \n";
		
		if ($FIRST)
		{
			print "Storing Products in Batch $HostHash{BNA}\n";
			$HostHash{products} = \@ProductArray;
			@ProductArray = ();
			
			push @HostArray, \%HostHash;
		}
		else
		{
			$FIRST = 1;
		}
		
		%HostHash = %fields;
		
		next HOSTPARSE;
	}
	
	push @ProductArray, \%fields;

}


print "Storing Products in Batch $HostHash{BNA}\n";
$HostHash{products} = \@ProductArray;

push @HostArray, \%HostHash;

print Dumper @HostArray;


__DATA__
BNAMedium Batch 1 DepartmentýBNO669ýSNO1ý
CCOSPIAýDNO1ýPNO5001ýSAD0ýINO0ý
CCOSPIAýDNO1ýPNO5004ýSAD0ýINO5004ý
CCOSPIAýDNO1ýPNO5100ýSAD0ýINO5100ý
BNAMedium Batch 2 DepartmentýBNO670ýSNO1ý
CCOSPIAýDNO1ýPNO5001ýSAD0ýINO0ý
CCOSPIAýDNO1ýPNO5004ýSAD0ýINO5004ý
CCOSPIAýDNO1ýPNO5100ýSAD0ýINO5100ý