if((@changed_files || @newlyinsertedfiles || @branchedfiles)) { foreach my $file (@changed_files) { $file =~ s/#\d+$//; #print "FILE:$file\n"; push @changed_paths,"$file\n"; } foreach my $file (@newlyinsertedfiles) { $file =~ s/#\d+$//; #print "FILE:$file\n"; push @newlyinserted_paths,"$file\n"; } foreach my $file (@branchedfiles) { $file =~ s/#\d+$//; #print "FILE:$file\n"; push @branched_paths,"$file\n"; } }