#!/usr/local/bin/perl

@names = ("kate", "yuma", "kyoco");
($nameA, $nameB, $nameC) = @names;

print "$nameB\n";