sub GetStyleCodesMap {
    my @csv_lines = chrtoolbox::MyCat('style_codes.csv');

    my $line_num = 0;
    foreach my $line (@csv_lines) {
	$line_num++;
	next if($line_num == 1); #skip the header
	last if($line eq "\n"); #done reading the mapping
	@data = SplitCSVLine($line);