in reply to Please review my code: 100 Doors.

Maybe a bit of DRY: 
is($answer[$_ ** 2], 'Open') for 1 .. 10;

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom