#!/opt/perl5/bin/perl -w
use strict;
use File::Slurp;

# The production files will be listed in
# the source hashes
my $report = "/home/mis/tstanley/SourceDiff.rpt";

my %input = (
  iqs_source => '/dsmpayroll/iqs-source',
  prg_source => '/dsmpayroll/prg-source',
  spg_source => '/dsmpayroll/spg-source',
  tpr_source => '/dsmpayroll/tpr-source',
  iqs        => '/dsmmigrate/development/iqs',
  prg        => '/dsmmigrate/development/prg',
  spg        => '/dsmmigrate/development/spg',
  tpr        => '/dsmmigrate/development/tpr',
);

my %data;

foreach my $key (keys(%input)) {
  my $dir = $input{$key};
  chdir($dir);
  foreach my $file (read_dir('.')) {
    my $sum = `sum $file`;
    my ($x) = split(/\s+/, $sum);
    $data{$key}{$file} = $x;
  }
}

## Open the report file
...