#!/usr/bin/perl

use strict;
use warnings;

use debug;


foreach my $inpfnm (@ARGV)
{
	print "Processing \"$inpfnm\"\n";

	if (!open INPFIL, '<', $inpfnm)
	{
		print "ERROR:  Cannot open input file \"$inpfnm\"\n";
	}
	else
	{
		my $outfnm = $inpfnm . '.out';
		if (!open OUTFIL, '>', $outfnm)
		{
			print "ERROR:  Cannot open output file \"$outfnm\"\n";
		}
		else
		{
			my %inpinf = ();

			while (my $inpbuf = <INPFIL>)
			{
				chomp $inpbuf;
				my ($inpkey, $inpval) = split /\s*\:\s*/, $inpbuf, 2;
				push @{$inpinf{$inpkey}}, $inpval;
			}
			close OUTFIL;

			&debug::predebugdumplist("\%inpinf", \%inpinf);
		}
		close INPFIL;
	}
}

exit;

__END__