Perlプログラミングの課題で

数列"1 2 3 5 8 13 21 34 55 89 144 233 377 610"
と500を超えるまでの、このプログラムをどう作ればよいのかわかりません。
皆様のお力をぜひお借りしたいのです。お願いします