Ignoring the fact we have reverse just because: a more Perlish way to write that function is

sub rev_scalar {
    local $_ = shift;
    return if not defined;

    my $res = '';
    $res .= chop while length;
    return $res;
}
[download]