Win32::OLE操作WORd的問題

maybenot

use Win32::OLE
use Win32::OLE::Enum

my $Shapes= $wrd->Documents(1)->Shapes;
my $Enum = Win32::OLE::Enum->new($Shapes);
my @list = undef;

while (defined(my $Shape = $Enum->Next)) {
    push(@list, $Shape) if($Shape->Type == 17 );

    #Delete方法在這里沒問題
    #$Shape->Delete();
}

if($#list > 1)
{
    #但是放在在這里就不行了
    $_->Delete() for @list;
}

@list里面存放的是$Shape的引用,怎么到外面就不行了??請教！