#!/usr/bin/perl
use warnings;
use strict;

opendir my $dh, 'Master' or die "opendir: $!";
my @files = grep { /\.txt$/ } readdir $dh;
closedir $dh;

for my $file (@files) {
	open my $ifh, '<', "Master/$file" or next;
	open my $ofh, '>', "Update/$file" or die "can't open file Update/$file: $!";
	while ( my $line = <$ifh> ) {
		chomp($line);
		my $updateline = $line . $file;
		print $ofh $updateline, "\n";
	}
	close $ofh;
	close $ifh;
}