perl Array-Window