Обрабатываем списки в PERL

#!/usr/bin/perl
use strict;

{
	open IN,$ARGV[1];
	my $hash;
	while (<IN>) {
		chomp;
		$hash->{$_}=1;
	}
	close IN;
	rename($ARGV[0],$ARGV[0].".old");
	open IN,$ARGV[0].".old";
	open OUT,">".$ARGV[0];
	while (<IN>) {
		chomp;
		if ($href->{$_}) {
			print OUT $_."# My comment\n";
		} else {
			print OUT $_."\n";
		}
	}
	close OUT;
}

{ nl -ba -nln file1; nl -ba -nln file2; } | sort > ss

uniq ss | diff ss - | grep '^<' | cut -f1 | cut -d' ' -f2 > ln

{ echo -n \\\(^fake; cat ln | xargs -n1 echo -n "\#\)\|\(^ *"; echo \#\\\); } > smart_regexp

cat file1 | nl -ba -w7 -s'#' | sed s/"$(< smart_regexp)"/"==\> \#"/ | sed "s/^ *[0123456789]*\#/ \#/" > commented_code