You can use Data::Dumper to see the contents of you array and understand what's happening.

Something like:-

use Data::Dumper;

my @set;

# ....

print Dumper(\@set);
[download]