use warnings;
use strict;
use Mojo::DOM;
use Mojo::Util qw/trim/;
use Data::Dump;
my $dom = Mojo::DOM->new(<<'HTML');
Sample Street 123
45678 Randomcity
HTML
my %hash_address = @{ $dom->find('address')->map(sub {
return ( trim($_->text), "This_is_the_address_content" ) }) };
dd \%hash_address;
__END__
{
"Sample Street 12345678 Randomcity" => "This_is_the_address_content",
}