for my $prod ( keys %rowhash ){ for my $sup ( keys %{$rowhash{$prod}} ){ print "$rowhash{$prod}{$sup}{DATA_F}, $rowhash->{$prod}{$sup}{DATA_S}\t"; } print "\n"; }