Select Code to Download

use strict;
use warnings;
...
       map  { [ $_, substr $_[ 0 ], $_ - 1 ] }
       1 .. length $_[ 0 ];
}

** hypersensitivities **
 7 - ensitivities
...
 4 - sissipi
 6 - ssipi
 3 - ssissipi