Fix silly mistake with perl syntax