foreach $key (keys %data) { print $key . "\t" . "$data{$key}" . "\n"; }