Take a look at splice. In your case, you can do:

splice (@array, 2, 1);

Zenon Zabinski | zdog | zdog@perlmonk.org