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

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

until(grep !defined, my @details = map scalar <$fh>, 1 .. 4) {
    print @details, "\n";
}