Select Code to Download

#!/usr/bin/perl
use strict;
...
foreach (keys %{$hoa}) {
    print "\t'$_' => [" . join(',', @{$hoa->{$_}}) . "],\n";
}

    'c' => [2,0],
    'a' => [1,2],
    'b' => [1,3],