Help for this page
a1a a1a ... h1h i1i j1j
while (<DATA>) { chomp; ... print "$curr\n"; $prev = $curr; }
b1b e1e f1f i1i j1j