#!/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";