BEGIN {
	my $x = [96.42, 100, 82.49];
	*D50 = sub () { $x };
}