use Data::Dumper; test_updatedevice(); sub test_updatedevice { print Dumper(\@current_list); print Dumper(\@temp_list); my $Device_LINK = $server->object("ICF_PersistentDataSet",$devicelinks); my $Temp_Device_LINK = $server->object("ICF_PersistentDataSet",$tempdevicelinks); my $current_devicelist = $Device_LINK->invoke("get"); my $temp_devicelist = $Temp_Device_LINK->invoke("get"); print Dumper($current_devicelist); print Dumper($temp_devicelist); }