#!/usr/bin/perl -w
use strict;
use Void qw( lc );  # My lc

sub lc_and_chop(\$) {
   chop ${$_[0]};
   lc ${$_[0]};
}

my $foo = 'fUnKy';
lc_and_chop $foo;
print "$foo\n";

##</code><code>##

- lc_and_chop $foo;
+ my $bar = lc_and_chop $foo;

##</code><code>##

sub lc (\$) {
   my $ref = shift;
   my $val = CORE::lc $$ref;
   return $val if defined wantarray;
   $$ref = $val;
}