sub uclast ($) {
    my $foo = shift;
    $foo =~ s/(\w)$/\u$1/;
    return $foo;
}