Select Code to Download

use strict;
use warnings;
...
say $uniq;
say $counts;
say $uniq-> append( $counts-> transpose );

>perl pdl180220.pl

...
 [3 4 5 1]
 [6 7 8 2]
]