As already stated, it would be wise to add a use strict to the beginning of your script. You'll then have to add a my $n = 0 before the foreach loop.

I think you're going to have to either decrement $number, since your menu starts at one, or instead start your menu at zero.