sub select_query {
    # shallow copy
    my @results = @{ $sth->fetchall_arrayref() || [] };
    return \ @result;
}

use Storable 'dclone';
sub select_query {
    # deep copy
    my @results = @{ dclone( $sth->fetchall_arrayref() ) || [] };
    return \ @result;
}