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 :)