Select Code to Download

sub mychop(\$) {  chop ${shift()} }

...
   my $c = mychop $thing;
   print " $thing,$c\n";
}

foo ->  foo,o
bar ->  bar,r
baz ->  baz,z