for (@cmd) {
  $_ = [split "\n", $_]->[0];
}

##</code><code>##

for (@cmd) {
  $_ = (split "\n", $_)[0];
}

##</code><code>##

for (@cmd) {
  s/\n.*$//s;
}