sub foo {chop @_};

   my @a = ('ab', 'cd', 'ef');
   print foo(@a), "\n";;

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