my @new = map {
    split ' ', $_
} @old;