for ( my $i=0; $i<=$#data; $i++ ) {
    my $href = $data[$i];
    for ( keys %$href ) {
        print "$_\n";
    }
}