# from second file
use strict;
use Digest::MD5 qw(md5_hex);
# from first file
my $target_dir = "/backups/test/";
opendir my $dh, $target_dir or die "can't opendir $target_dir: $!";
while (defined(my $file = readdir($dh))) {
    next if ($file =~ /^\.+$/);
    #Get filename attributes
    if ($file =~ /^foo(\d{3})\.name\.(\w{3})-foo_p(\d{1,4})\.\d+.csv$/) {
      print "$1\n";
      print "$2\n";
      print "$3\n";
    }
    print "$file\n";

    # From second file
    #Create new file
    open (NEWFILE, ">/backups/processed/foo$1.name.$2-foo_p$3.out")
      || die "cannot create file";
    my $data = '';
    my $line1 = <>;
    chomp $line1;
    my @heading = split /,/, $line1;
    my ($sep1, $sep2, $eorec) = ( "^A", "^E", "^D");
    while (<>)
        {
        my $digest = md5_hex($data);
        chomp;
        my (@values) = split /,/;
        my $extra = "__mykey__$sep1$digest$sep2" ;
        $extra .= "$heading[$_]$sep1$values[$_]$sep2" for (0..scalar(@values));
        $data .= "$extra$eorec"; 
        print NEWFILE "$data";
    }
    #print $data;
    close (NEWFILE);

# and back to the first file
}


##</code><code>##

# from second script
use strict;
use Digest::MD5 qw(md5_hex);

# from first script
my $target_dir = "/backups/test/";
opendir my $dh, $target_dir or die "can't opendir $target_dir: $!";
while (defined(my $file = readdir($dh))) {
    next if ($file =~ /^\.+$/);
    #Get filename attributes
    if ($file =~ /^foo(\d{3})\.name\.(\w{3})-foo_p(\d{1,4})\.\d+.csv$/) {
      print "$1\n";
      print "$2\n";
      print "$3\n";
    }
    print "$file\n";

    # New line added: call the routine to process file
    process_file($file);
}

# New line: tell perl that we're making a subroutine
sub process_file {
    # Need to get arguments here:
    my ($filename) = @_;

    # from second script
    #Create new file
    open (NEWFILE, ">/backups/processed/foo$1.name.$2-foo_p$3.out")
      || die "cannot create file";
    my $data = '';
    my $line1 = <>;
    chomp $line1;
    my @heading = split /,/, $line1;
    my ($sep1, $sep2, $eorec) = ( "^A", "^E", "^D");
    while (<>)
    {
        my $digest = md5_hex($data);
        chomp;
        my (@values) = split /,/;
        my $extra = "__mykey__$sep1$digest$sep2" ;
        $extra .= "$heading[$_]$sep1$values[$_]$sep2" for (0..scalar(@values));
        $data .= "$extra$eorec"; 
        print NEWFILE "$data";
    }
    #print $data;
    close (NEWFILE);
}


##</code><code>##

    open (NEWFILE, ">", "/backups/processed/foo$1.name.$2-foo_p$3.out")
   

##</code><code>##

    open NEWFILE, ">", "/backups/processed/foo$1.name.$2-foo_p$3.out"
      or die "cannot create file";