>perl -wMstrict -MData::Dump -le
"print $];
 ;;
 my $self = { qw(rxml rxml_i_am  rxml_ob rxml_ob_it_is) };
 dd $self;
 ;;
 my( $rxml, $ob ) = @{%$self}{qw/rxml rxml_ob/};
 print qq{'$rxml' '$ob'};
"
5.008009
{ rxml => "rxml_i_am", rxml_ob => "rxml_ob_it_is" }

'rxml_i_am' 'rxml_ob_it_is'