#! /usr/bin/perl

# 配列を作成
@array = ( "sakura", "tomoyo", "misaki", "hatoko", "mokona" );

# 配列の大きさを得る1
$arraysize1 = $#array + 1;

# 配列の大きさを得る2
$arraysize2 = @array;

# 表示
print "配列： " . join(", ", @array ) . "\n";
print "配列の大きさは $arraysize1 です。\n";
print "配列をスカラー変数に代入しても $arraysize2 です。\n";

exit;