my ($ver, $hlen) = (vec($ver_hlen, 0, 4), vec($ver_hlen, 1, 4));

##</code><code>##

my ($ver, $hlen) = map(vec($ver_hlen, $_, 4), (0 .. 1));