#!/usr/bin/perl -w
use strict;
use warnings;
use Text::ParseWords;

opendir IN, 'Master';
my @in = grep { /\.txt$/ } readdir IN; # read all file names form dir except names started with dot
closedir IN;

for my $in (@in) {
  open IN, '<', "Master/$in" || next;
  open OUT, '>', "Update/$in" || die "can't open file Update/$in";
my @file = @in
while (my $file = <IN>) {
	my $line = $_;
	$updateline = $line . $file;
	print OUT "$updateline";
	}
  close OUT;
  close IN;
}