$aFields = Variant(VT_ARRAY|VT_BSTR, 1);
$aFields->Put(0, "PX_Last");

##</code><code>##

my @vals = qw(First Second Third ... Last);
$arrStr = Variant(VT_ARRAY|VT_BSTR, scalar @vals);
my $i = 0;
for my $val (@vals) {
    $arrStr->Put($i++, $val);
}