while (<DATAFILE>)
{
    $TRACK = $_;
    chomp ($TRACK);
    $pager = $_;
    chomp ($pager);
    $service = $_;
    chomp ($service);
}