my @testcases = map {
my ($var, $init, $code, $exp, $use) = @$_;
[ $var, $init, $code, $exp, $use, $opts, 0 ],
[ $var, "use strict; $init", $code, $exp, $use, $opts, 1 ],
[ $var, "no strict; $init", $code, $exp, $use, $opts, 1 ],
} @base;
my @testcases = map {
my ($var, $init, $code, $exp, $use) = @$_;
[ $var, $init, $code, $exp, $use, $opts, 0 ],
[ $var, "use strict; $init", $code, $exp, $use, $opts, 1 ],
[ $var, "no strict; $init", $code, $exp, $use, $opts, 1 ],
} @base;