perl5.21 warns about Redundant argument in sprintf