Include use strict;
and use warnings;
at the top of each and every perl script you make.
If you had done that you would've gotten the following error:
Global symbol "%data" requires explicit package name
Your data is a hashref assigned to $data
. Therefore to see the keys of it, you do the following:
print "Key: $_\n" for keys %$data;
For the three values on the second level of your hash, you'd use the following:
print "Key: $_\n" for keys %{$data->{technical-profile}};
Should output (in random order):
Key: WEB
Key: WAP/PDA
Key: WAP