Lücken in einem Text durch Daten einer Textdatei ersetzen! Brauche Hilfe!

[strauch]

=== cut ===
#!/usr/bin/perl

my @words = qw(Tisch Dach Fenster Computer Internet Pullover);
my $text = "Ich stelle mich auf den xxxxxx, dannach geh ich auf's xxxxxx und gucke durch's xxxxxx. Dann gehe ich wieder runter und schalte meinen xxxxxx ein und gehe ins xxxxxx. Weil es mir zu kalt ist ziehe ich mir einen xxxxxx an."

my $i = 0;
$text =~ s/xxxxxx/$words[$i++]/g;
=== cut ===

kurze Frage, funktioniert das ganze nicht auch ohne my? Mhh ich müsste mich mal mit my genauer befassen, so ganz raus habe ich es auch noch nicht.

Gruß

strauch