my @fulls;
for my $area (@areas) {
    for my $short (@shorts) {
        push @fulls, "$short.area$area";
    }
}