Select Code to Download

    my $found = 0;
    while ($found < 2) {
...
            print "$found- $customer2_data[1]";
        }
    }

my $found = 0;
while ( $found < 2 and my $line = <DATA> ) {
...
    # ...
  }
}