#!/usr/bin/perl -w

use strict;

open(DATAFILE, "testfile");

my @file_data;
push(@file_data, $_) while (<DATAFILE>);
my ($track, $pager, $service) = @file_data;
chomp ($track, $pager, $service);

print "Tracking Number: $track\n";
print "Pager Number: $pager\n";
print "Service: $service\n";