#!/usr/bin/perl -w

#file1 format: name|phone|check amount this mo.
#file2 format: name|phone|check amount last mo.

open(F1,"file1.txt") ||
die "cannot open $infilename for reading: $!";
open(F2,"file2.txt") ||
die "cannot open $infilename for reading: $!";
open(F3,">temp.txt") ||
die "cannot create $outfilename: $!";

while (<F1>) {
($name,$phone,$check1) = split(/\|/);

while (<F2>) {
($name,$phone,$check2) = split(/\|/);

$change = $check1 - $check2;

if ($check2 > $check1) {
$stat = "decrease";
	}
else {
	$stat = "increase";
	}

$_ = join ',', ("$phone","$name","$check1","$check2","$change","$stat");
print F3 "$_\n"; 

}
}
close (F1);
close (F2);
close (F3);