for (1 .. 4) {
    my $following = <DATA>;
    print $following;
}