Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    printf "key=%s size=%d\n", $key, @$aref;
}

1
2
...
key=three size=3
key=one size=1
key=two size=2