例
　　　　( split /\//, $x )[0 .. bar];

リストの末尾要素を除いたリストを返す方法、知りませんか？
barをどう記述すりゃいいのやら。

Perl ならできそうな気がするんですが。思い当たりません。
検索してみたものの、それらしいものも見つけられません。