Shell Programming and Scripting

#!/usr/bin/perl
open FH,"<mapVersion.txt";
while(<FH>){
	chomp;
	my @tmp=split("[|]",$_);
	$hash{$tmp[0]}=$tmp[1];
}
close FH;
# above put <mapVersion.txt> content into a hash
open FH,"<ListOfFile.txt";
while(<FH>){
	chomp;
	if (not exists $hash{$_}){
		print "No need to check $_\n";
		next;
	}
	else{
		open TFH,"c.sh $_|";  #c.sh is just get our desired value of certain file's second line		my $tmp=<TFH>;
		if ($tmp != $hash{$_}){
			print "Not match for $_ [$hash{$_} -- $tmp]\n";
		}
		else{
			print "Match for $_\n";
		}
		close TFH;
	}
}