my $a = (1..100).pick;
$a == 42 or die '$a ain\'t 42';