sub magic
{
    my ($v, $i) = @_;
    $v=substr($v,0,length($v)-1).chr(ord(substr($v,-1))+$i);
}

print magic('a',  1), ", ";
print magic('c', -1), ", ";
print magic('meep', 2);

# will print "c, a, meer"