sub uclast ($) {
    my ($foo) = @_;
    $foo =~ s/(.)$/uc $1/e;
    return $foo;
}