UWK5M3M6CZ4CIIII37XBVGF6ULCRK66ICSYZVFYFD7PM6ZW5HBNQC
3AKZKWCRQZTASQO5BZ4KCEFJ5OMP7LVF6YOPDJN5KCRIZIW75MCAC
use Data::Dumper;print Dumper($dat);
use Data::Dumper;
print Dumper($dat);