If you need them in a specific order:

my @keys = qw(CCMT CCOA CDEC CFST CREF CRSP CVEH);
do {
    print
       $j, ',',
       join(',', map { master{$j}{$_} || '0' } @keys),
       "\n";
    $j += 60;
} while $j <= $l;
[download]

One note: I think do while is a really icky construct, but I wanted to reproduce your code.