perl typo (forgot to shift @)