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