Select Code to Download

use strict;
use warnings;
...
print map {
    ($labels[$counter++], qq{\t}, ($_ ne q{} ? $_ : $no_value), qq{\n}
+)
} @sql_data;

First:  John
Middle: *NO_VALUE_SUPPLIED*
Last:   Smith
Age:    20