print Dumper($data_href);
output1:
$VAR1 = {
          'Node' => 'TestServer'
        };


$obj->check_data($data_href);

##</code><code>##

dataclass.pm

sub new {
  ...
}

sub check_data {

   my ($self, $args) = @_;

   print Dumper($args);

}