Sometimes perl is weird