in reply to Skip return values
You can do that as follows
my $c=(&sample)[2]; print $c; [download]
The great pleasure in my life is doing what people say you cannot do.