@hosts = map {
    if (/^\d{2}\z/) {
        my $h = $_;
        map "$_.area$h", @shorts
    } else {
        $_
    }
} @hosts