sub BLA () { 23 } $array[BLA] = '...';