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


my @names = ("kate", "yuma", "kyoco");
($a, $b, $c) = my @names

print $a;