@array = qw / abc def ghi /;
@tmp = sort @array;            #リストコンテキスト
$num = 5 + @array;             #スカラーコンテキスト
@tmp = @array;                 #リストコンテキスト
($val1, $val2) = @array;       #リストコンテキスト
($tmp2) = @array;              #リストコンテキスト
$array[0] = $num;              #スカラーコンテキスト
if ($flag){}                   #スカラーコンテキスト
push (@array, @array2);        #リストコンテキスト
reverse @array;                #リストコンテキスト
@array = undef;                #スカラーコンテキスト(先頭のみundef)
@array = ();                   #リストコンテキスト
print "@array";                #リストコンテキスト
print "scalar @array";         #スカラーコンテキスト scalarを使って明示
@lines = <STDIN>;              #リストコンテキスト
chomp(@lines);                 #リストコンテキスト
chomp(@lines = <STDIN>);       #リストコンテキスト