name 17
name2 14
name3 14
##</code><code>##

1 2 3 4 name2 6 7 8 9 10 11 12 13 14 15
1 77 5 4 name2 6 9 8 9 10 11 12 13 14 15
1 2 3 4 name5 6 7 8 9 10 11 12 13 14 15
##</code><code>##

1 2 3 4 name2 6 7 8 9 10 11 12 13 14 15
1 77 5 4 name2 6 9 8 9 10 11 12 13 14 15
##</code><code>##

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;