#!/usr/bin/perl -w
use strict;

open my $fh, '<', 'details.txt' or die $!;

sub read_lines {
    my ($fh, $amnt) = @_;
	return unless defined(my $line = <$fh>);
    return (
        $line,
        $amnt > 1 ? read_lines($fh, $amnt - 1) : ()
    );
}

while(my @details = read_lines($fh, 4)) {
    print @details, "\n";
}