my @arr;  
push @arr, "abc";
push @arr, "def";
push @arr, "ghi";

$sth->bind_param_inout(":id", \\@arr, 10, {
        ora_type => ORA_VARCHAR2_TABLE,
        ora_maxarray_numentries => 100
} ) ;