#use strict;
#use warnings;
[download]

Otherwise, the more idiomatic way to write your foreach loop would be to declare $key within the loop:

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