if($current!=1){
    say "$simple rad[$index] $current";
}

##</code><code>##

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
print(Dumper($index));