#!/usr/bin/perl -w

use strict;

my @ary = qw(one two three);
my %hash = (one => "One", two => "Two", three => "Three");

print @ary->[0];
print %hash->{one};