Select Code to Download

#use strict;
#use warnings;

foreach my $key (keys %data) {
    print "$key,$data{$key}\n";
}