in reply to Subroutine return value

you need to assign data to Results1 and Results2: 
my($results1, $results2) = &DoList(....);

[download]

In Section Seekers of Perl Wisdom