my ($first) = map {whatever} @array;