use Scalar::Util qw(refaddr);

sub overload_string_specification {
    my $overload = shift;

     join " ",
        map { ($_=>refaddr($overload->{$_})) }
        sort keys %$overload;
}