my @case = @{$sth->{NAME}};
while(my $info = $sth->fetchrow_hashref) {
    for (@case) {
        print "$_ => $info->{$_}\n";
    }
}