Select Code to Download

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 i
+nstead of the IDO - but it's kinda ugly :)

#!/usr/bin/perl -w
use strict;
...
for my $k (sort keys %hash1){
    print "$k: @{$hash1{$k}}\n";
}