Thanks for the response Ken.You are really nice and polite person. Actually I am bit worried for this issue may be that could be the cause of ignorance. I have tried 3 ways but all of them throwing error:

1). As suggested: @{$difference[0]} Error -- >Can't use string ("ARRAY(0x2c992e0)") as an ARRAY ref while "strict refs" in use at

2). Tried 2nd way @{$difference} Error as below -- > Global symbol "$difference" requires explicit package name at Global symbol "$intersect" requires explicit package name at Global symbol "$union" requires explicit package name at .

3). tried 3rd way @difference DEBUG: - difference links values ARRAY(0x32690e0) ARRAY(0x3269090) ARRAY(0x322d040) ARRAY(0x3276990) ARRAY(0x322d060) ARRAY(0x3269f80) ARRAY(0x3269040) DEBUG: - intersect links values DEBUG: - union links values ARRAY(0x32690e0) ARRAY(0x3269090) ARRAY(0x322d040) ARRAY(0x3276990) ARRAY(0x322d060) ARRAY(0x3269f80) ARRAY(0x3269040) Expected output should be device names(e.g ..ABC-DCFE41->90) so that I can remove difference part one by one from the data set."

Actaully I really don't know what will be the output. All I know there are device information in 2 diff dataset which I want to compare and remove the addtional devices from dataset. So i tried perl I am not an expert in perl just trying from last 2 days by seeing so many posts. I am sorry if i have wasted your time on a fool like me...