my @array = qw(01 42 62 00 01);

print pack 'H2' x @array, @array;