#!/usr/bin/perl

use strict;
use warnings;

use 5.010;
use Mojo::DOM;

my $html = <<'HTML';
<table>
<tbody>
<tr>
<td>
<div>
Alter:
<br>
Wohnort:
<br>
Haarfarbe:
<br>
Figur:
<br>
Gewicht:
<br>
</div>
</td>

<td>
<div>
28 Jahre
<br>
Berlin
<br>
blond
<br>
schlank
<br>
54 kg
<br>
</div>
</td>

</tr>
</tbody>
</table>
HTML

my $dom = Mojo::DOM->new($html);

my ( %data_row, @keys, @val );

$dom->find('table tr td div')->each(
    sub {
        my $s = $_->content;
        $s =~ s/[\r\n]//g;
        my @data = split m|\s*<br>\s*|, $s;
        if ( $s =~ /:/ ) {
            @keys = grep /:/, @data;
        }
        else {
            @val = grep { !/:/ } @data;
        }
        @data_row{@keys} = (@val) if @keys;
    }
);

say "$_ $data_row{$_}" for @keys;

=comment 

ergibt
Alter: 28 Jahre
Wohnort: Berlin
Haarfarbe: blond
Figur: schlank
Gewicht: 54 kg