「Perl入門」配列の値をランダムに取得するサンプル

サンプルコード
#! /usr/bin/perl
use strict;
use warnings;

my @tt = (‘tokyo’,’oosaka’,’fukuoka’,’yokohama’);

my $n = int(rand 4);

print ($tt[$n]);