Select Code to Download

foreach my $line (@the_cell_site_lines) {
    my @data = split /\s+/, $line;
...

    # Do something here with the cellnumber you now have.
}