#!/usr/bin/perl
#use warnings;

open (GRAPH, "2211.txt") || die "Can't open 2211.txt: $!\n";
while (<GRAPH>)
{
        $a1 = push(@a1, $1);
        $a2 = push(@a2, $2);
	print @a1, @a2;
}

close GRAPH;