Select Code to Download

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

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

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