DB<1> $array = [qw(a b c)];

  DB<2> $hash = { a => 1, b => 2, c => 3 };

  DB<3> print $array->[2];
c
  DB<4> print $hash->{a};
1
  DB<5> print @$array[2];
c
  DB<6> print %$hash{a};
a1
  DB<7>