Select Code to Download

#!/usr/local/bin/perl

%c={A=>'0',B=>'0',C=>'0',D=>'0'};
foreach $key (keys %c) { print "$key => $c{$key}\n"; }