my @a = "1 10 5 345 2 12";
my $indx=1;
foreach my $ind (@a)
{
print "IND = $ind and index = $indx\n";
if ($ind%2==0)
{
$ind = sprintf("0x%x",$ind);
}
$indx++;
}
print "final conversion input array = @a\n";