If you work with records as units rather than with lines things get a little easier:

use warnings;
use strict;

my @records;

local $/ = "\n\n";
while (<DATA>) {
    my ($title, $row) = /TEST\s+\w+\W+(\w+)\D+(\d+)/;

    next unless defined $row;
    push @records, [$title, $row];
}

print "$_->[0] -> $_->[1]\n" for @records;

__DATA__
data per sample
[download]

Prints:

CUSTOMERPHONE -> 1300
CUSTOMERORDER -> 0
CUSTOMERCARE -> 530
[download]

Note that @records is used to preserve the order of the data in the source. The reversion to using a hash should be simple and obvious.