my @fulls =
    map { my $area = $_; map "$_.area$area", @shorts }
    @areas;