#!/usr/local/bin/perl
use strict;
use warnings;

@names=("マイキー", "エミリー", "ローラ");
print $names[0];