use warnings;
use strict;

my @lines = <DATA>;
chomp @lines;
my $head = shift @lines;

print "$head  $head\n";
my $count = @lines / 2;
for my $i (0 .. $count-1) {
    print "$lines[$i]  $lines[$i+$count]\n";
}


__DATA__
a b c
0 0 d
0 1 d
0 1 d
0 2 d
0 2 d
1 0 d
1 0 d
1 1 d
1 2 d
1 2 d