Select Code to Download

my @fields;
while (<DATAFILE>)
...
    chomp;
    push @fields, $_;
}

my ($TRACK, $pager, $service) = @fields;