#!/usr/bin/perl
use warnings;
use strict;

open(my $in_fh, '<', 'input.txt') or die $!;
my $output;

my %seen_lines;
while (<$in_fh>)
{
	chomp;
	my @columns = split;
	
	if ($columns[1] and $columns[1] =~ /^HLA-A/)
	{
		my $HLA_Peptide = $columns[1] . $columns[2];
		$output .= "$_\n" if (!exists $seen_lines{$HLA_Peptide});
		$seen_lines{$HLA_Peptide} = 1;
	}
	else
	{
		$output .= "$_\n";
	}
}
close $in_fh;

print $output;