Your Perl code is interpolating "$1:$10". You should single quote it instead.

   $sheet->PageSetup -> {PrintTitleRows} = '$1:$10';
[download]

Using use warnings in your program would have alerted you to that.

--
John.