my %mdhash = (
  foo => [ qw( ichi ni ) ],
  bar => [ qw( san shi ) ],
);

print $mdhash{foo}->[0], $mdhash{foo}[1], $/,
      @{$mdhash{bar}}[0], pop @{ $mdhash{bar} }, $/;

__output__

ichini
sanshi
[download]

See. perlreftut and perlref for more info.
HTH

_________
broquaint