sub hex_dump {
   return join ' ',
          map { sprintf('%02X', ord($_)) }
          split //,
          (@_ ? $_[0] : $_);

}

print('password: ', hex_dump($password), "\n");
print('VAR1:     ', hex_dump($VAR1    ), "\n");