use strict;
use warnings;

my @labels = qw{First: Middle: Last: Age:};
my @sql_data = (q{John}, q{}, q{Smith}, 20);
my $no_value = q{*NO_VALUE_SUPPLIED*};

my $counter = 0;

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