Select Code to Download

my $array = [ 5, 5 ];
$array->[2] = sub { $array->[0] * $array->[1] };
print &{$array->[2]}; # 25
$array->[1] = 10;
print &{$array->[2]}; # 50

$array->[2] = '$array->[0] * $array->[1]';
print eval $array->[2];