open( P, "<", "Two.txt" ) or die "Two.txt: $!";
my @patches = sort <P>;
chomp @patches;
close P;

my %patch_id;
my $seq_num = 0;
$patch_id{$_} = $seq_num++ for ( @patches );