#!/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";
	}
}