my $names = shift;
    ...
    
    @v{@$names} = $sth->fetchrow()