最長の区間 Perl編（paizaランク B 相当）

問題にチャレンジして、ユーザー同士で解答を教え合ったり、コードを公開してみよう！

問題

数列 A の要素数 N と値 M、数列 A の要素 A_1, A_2 ... A_N が与えられます。

要素の和が M を超えないような A の部分列の最大の長さを求めてください。

なお、数列の部分列とは、数列の連続した 1 つ以上の要素を取り出して作ることができる数列のことです。

入力される値

N M            
A_0 A_1 ... A_(N-1)

・ 1 行目には、数列 A の要素数 N と、条件に使う整数 M が与えられます。
・ 2 行目には、数列 A の各要素 A_1, A_2 ... A_N が与えられます。

入力値最終行の末尾に改行が１つ入ります。
文字列は標準入力から渡されます。標準入力からの値取得方法はこちらをご確認ください

期待する出力

1 行の出力

・条件を満たす最大の区間の長さ(要素数) l を 1 行で出力してください。