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

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

@fruit = ("apple", "orange", "banana");
print "$fruit[1]\n";