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