my @chr_temp=split //,$arr[0];
for(1..3)
{
    shift(@chr_temp);
}
$arr[0]=join("",@chr_temp);