I see. Alright, I won't be using modules cause I'm still learning so I want to do more of the coding first.

The most important thing you can do is start creating subroutines , your gets shorter the more you do this

{
  my %details;
  for my $infile( @inputFiles ){
      FillDetails( \%details, $infile );
  }
  SpillDetails( \%details, $outfile );
}
exit( 0 );
[download]