open(FILE1, $ARGV[0]) or die "Cannot open the file: $!";
my $name
while(my $line = <FILE1>)  {
	my @data = split(" ", $line);
	$name = "$data[0]";
}

open(FILE2, $ARGV[0]) or die "Cannot open the file: $!";

while(my $line = <FILE2>)  {
	my @data2 = split(" ", $line);
	my $element = "$data2[4]";
	if ($element = $name) { 
	print "$data2[0]\t$data2[1]\t$data2[2]\t$data2[3]\t$data2[4]\t$data2[5]\t$data2[6]\t$data2[7]\t$data2[8]\t$data2[9]\t$data2[10]\t$data2[11]\t$data2[13]\t$data2[14]\n";
	}
}

close FILE1;
close FILE2;
exit;