while ($i < 4)
{
    $ID1=sprintf "%024x", $i;
    printf "Value of ID1 = $ID1\n";
    $ID1 = join ' ', unpack("(A2)*",$ID1);
    print "After join command:$ID1\n";
    $i++;
}