my $array = [qw(a b c)];
my $hash = { a => 1, b => 2, c => 3 };

##</code><code>##

print $array->[2];
print $hash->{a};

##</code><code>##

print @$array[2];
print %$hash{a};