■defineではなくconstとinlineを使用する

■配列の宣言

@を先頭につける
@Word = ( "cat", "dog", "rat" );
引用府を用いない表現
@Word = qw(cat dog rat);

#!/bin/perl

@Word = qw(1 2 3 4 5 test end);
$i = 0;

while($Word[$i] ne "") {
	print "$Word[$i] \n";
	$i = $i + 1;
}