Exercise 61

Could you check this solution and add it if it works well?

my $Z = random(10);
my $z = 0.5;
my $m = $Z->at( minimum_ind(abs($Z - $z)) );
print $m;