name 1
name 2
name 3
name 4
name 5

##</code><code>##

#!/usr/bin/perl -w

use strict;

open (INPUT, "<test.txt") or die "cannot open\n";
open (OUTPUT, ">result.txt") or die "cannot open out\n";

while (<INPUT>) {
	chomp $_;
	my $first_name = $_;
	
	while (<INPUT>) {
		chomp $_;
		my $next_name = $_;
		print OUTPUT "$first_name\t$next_name\n";
	}
}

##</code><code>##

name 1	name 2
name 1	name 3
name 1	name 4
name 1	name 5

##</code><code>##

name 1 0.2 0.3 0.22 0.41 ... (200 numbers)
name 2 0.3 0.8 0.72 0.11 ... (200 numbers)
...
name 300000 0.1 0.2 0.3 0.4 ... (200 numbers)