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