#!/usr/bin/perl

use constant FIRSTNAME => 0;
use constant LASTNAME => 1;
use constant ADDRESS => 2;

while (<>)
{
  chomp;
  my @iRecord=split(/\|/);
  print "Address for $iRecord[FIRSTNAME] $iRecord[LASTNAME] is $iRecord[ADDRESS]\n";
}