http://www.perlmonks.org?node_id=649922

monk2b has asked for the wisdom of the Perl Monks concerning the following question:

I am attempting to write a subroutine and get back the return value. I am unaware of a key ingredient that makes this work properly because I am not able to get the return value.

This is what I have so far. I would appreciate any help in making me understand what I don't know about passing the return value back to the rest of the script.
#!/usr/bin/perl use warnings; use strict; my $List = "/bin/ls"; my $tmp = "/tmp"; my $var = "/var"; my ($Results1, $Results2); &DoList($List, $Results1, $Results2, $tmp, $var); print "Tmp is\n$Results1\n"; print "Var is\n$Results2\n"; sub DoList { my ($List, $Results1, $Results2, $tmp, $var); ($List, $Results1, $Results2, $tmp, $var) = @_; $Results1 = `$List $tmp`; $Results2 = `$List $var`; return( $Results1, $Results2); }
I got 99 problems, but a @%$()_ ain't one.