First version of scalar-and-list-context-in-perl with a lot of changes to do