sub BindValues {
    my $csr = shift;
    my $array_ref = shift;
    my $i;
    my $placeholder;
    
    foreach $i ( 0 .. $#$array_ref ) {
        $placeholder = ":" . $i;
        $csr->bind_param($placeholder, $array_ref->[$i]);
    }
}