#!/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;
say 'random pick was ', $x;
IyEvdXNyL2Jpbi9wZXJsCgojIElkaW9tICMyNTAgUGljayBhIHJhbmRvbSB2YWx1ZSBmcm9tIGEgbWFwCiMgaHR0cHM6Ly9wLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5zLm9yZy9pZGlvbS8yNTAKCnVzZSB2NS4xMDsKCiRrID0gJ0EnOwokbXsgJGsrKyB9ID0gKyskdiBmb3IgMS4uMjY7CgpAdmFscyA9IHZhbHVlcyAlbTsKJHggPSAkdmFsc1sgaW50IHJhbmQgQHZhbHMgXTsKCnNheSAncmFuZG9tIHBpY2sgd2FzICcsICR4OwoK