side note: i have no idea how to actually write perl