foreach my $key ( sort( keys( %{ $lookup } ) ) ) {
 print data->{ $lookup->{ $key } };
}