use strict;
use warnings;
my @a = ( 1, 10, 5, 345, 2, 12 );
foreach my $indx (0..$#a) {
    next if !($indx % 2);
    $a[$indx] = sprintf '0x%x', $a[$indx];
}
print "final conversion input array = @a\n";