Select Code to Download

#!/usr/bin/perl
use strict;
...

map { print "$_ -> $record{$_}\n" } %record;

TEST HEADER
 CUSTOMERPHONE
...
-----------
   530
(1 row)

CUSTOMERORDER -> 1300
1300 -> 
...
 -> 
CUSTOMERCARE -> 0
0 ->

CUSTOMERPHONE -> 1300
CUSTOMERORDER -> 0
CUSTOMERCARE -> 530