# Script part 3.
{   my %list;
    eval "$code;1" or die $@;
}