The code you posted cannot work. (Win32::)OLE cares about the case of the method names. I recorded what you want to do in the macro recorder and got the following code:

    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Move Before:=Workbooks("Mappe2").Sheets(1)
[download]

It should be fairly able to adapt that to Perl - my untested translation follows:

    my $sheet = $Book->Sheets("Tabelle1");
    my $target = $Book1->Sheets( $Book1->Sheets->Count );
    $sheet->Move( { After => $target });
[download]