Select Code to Download

use strict;
use warnings;
...
  return join $/, @foo
}
print foo(\@perls)

Ambiguous use of @{shift} resolved to @shift at a.pl line 7.
Global symbol "@shift" requires explicit package name at a.pl line 7.
Execution of a.pl aborted due to compilation errors.