Select Code to Download

use warnings;
use strict;
...
}  
$Data::Dumper::Indent = 0;
print Dumper values %have;

[1,1,2,1,[2,1,2,3,[2,3,5,3,[5,3,5,5,[5,5,1,5,[1,5,1,1]]]]]]