my $found = 0;
	while ($found < 2) {
		my $line = <DATA>;
		if ($line =~ /customer2/) {
			$found++;
			my @customer2_data = split(/=/, $line);
			print "$found- $customer2_data[1]";
		}
	}

##</code><code>##

my $found = 0;
while ( $found < 2 and my $line = <DATA> ) {
  if ( $line =~ m/customer2/ ) {
    # ...
  }
}