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

my @name = ("kate", "yuma", "kyoco");
my @rev = reverse @name; #list_context
my $color = @name; #scolar_context

print "@rev\n";
print "$color\n";

my %a = (a => 1, b => 2);
my $array_ref = [1, 2, 3, 4];
my $hash_ref = \%a;
print$array_ref;
print$hash_ref;