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;