use Inline C => <<'END_C';
void clear_the_array( AV* av ) { av_clear(av); }
void undef_the_array( AV* av ) { av_undef(av); }
END_C

clear_the_array(\@MyArray);
undef_the_array(\@MyArray);