sub setOutputFiles { my ($captureId,$outputFile,$fileType) = @_; push @outputFiles, { $captureId => $outputFile, 'type' => $fileType }; print Dumper(\@outputFiles); }