I forgot how perl works