my @ends = map{ [$_->[0], $_, 'S'], [$_->[-1], $_, 'E'] } @data;