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

##</code><code>##

$arr[0] = substr($arr[0], 3);

##</code><code>##

$site_info{$arr[0]{$arr[1]}}{"value"}=$arr[3];

##</code><code>##

$site_info{$arr[0]}{$arr[1]}{"value"}=$arr[3];