foreach my $key (sort keys %compHash) {
   my $from = $src.$key;
   next unless (-e $from);
   .
   .