RosettaCodeData/Task/Assertions/Perl-6/assertions-1.pl6

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