perl defs