perl benchmark tests