#!/usr/bin/perl

# Idiom #250 Pick a random value from a map
# https://p...content-available-to-author-only...s.org/idiom/250

use v5.10;

$k = 'A';
$m{ $k++ } = ++$v for 1..26;

@vals = values %m;
$x = $vals[ int rand @vals ];

say 'random pick was ', $x;