my $lines = 2;
while(<DATA>) {
    chomp;
    print;
    $. % $lines == 0 ? <> : print "\n";
}
__DATA__
foo
bar
baz
boo