#! perl -slw
use strict;
require 5.008;
use constant { NAME=>0, ADDR=>1, PHONE=>2, FAX=>3 };

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

while( !eof($fh) ){
    my @details = map{ scalar <$fh> } 1..4;
    chomp @details;
    print "@details[ NAME, ADDR, PHONE, FAX ]";
}
[download]