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

@names=("マイキー", "エミリー", "ローラ");
($a, $b, $c)=@names;
print $b;