print @{($bar->(qw/fiddle glop/))[1][9]};      # Print the whole list
print ${($bar->(qw/fiddle glop/))[1][9]}[3];   # Print the 4th element
print ${$x}[0];                                # You can even use it instead of the IDO - but it's kinda ugly :)

##</code><code>##

#!/usr/bin/perl -w
use strict;

sub display {
    my $ref = shift;
    for my $k (sort keys %$ref){
        print "$k: @{$ref->{$k}}\n";
    }
}

my %hash1;
$hash1{fruit}     = [ qw/apple orange plum/ ];
$hash1{vegetable} = [ qw/leek carrot peas/  ];

display (\%hash1);

for my $k (sort keys %hash1){
    print "$k: @{$hash1{$k}}\n";
}