foreach my $value (values %data){
    print "$value\n";
}