Select Code to Download

   sub foo {chop @_};

   my @a = ('ab', 'cd', 'ef');
...

   my $b = 'abcdef';
   print foo($b), "\n";

   f
   f