my $sth = { NAME_uc => [ 1 .. 2 ] };
print join "\n" , @{ $$sth{NAME_uc} } ,''
__END__
1
2