This is exactly what my brain was trying to do the first time around, I just couldn't think of using a "do" block (I was thinking of the c comma operator, which obviously does something quite different in perl list context)