You could do:

print "\%h: @{[ %h ]}\n";  # take the deref of the ref of the array of
+ %h
[download]

my @a=qw(random brilliant braindead); print $a[rand(@a)];