I used perlfaq which suggested some of the code you guys have mentioned. Basically I get an output of the full list again...

Here's my code, the file read in is a csv...

       my %defaultArgs = (
               'porder'   => 1,
               'ptitle1'  => 2,
               'ptitle2'  => 3,
               'ptitle3'  => 4,
               'yorder'   => 5,
               'xorder'   => 6,
               'mtitle'   => 7,
               'size'     => 8,
               'avail'    => 9,
               'select'   => 10,
               'symbol'   => 11,
               'invert'   => 14,
               'isvary'   => 15,
               'unit'     => 16,
               'default'  => 17,
               'min'      => 18,
               'max'      => 19,
               'relative' => 20,
               'monitor'  => 21,
               'ac'       => 22,
               'en'       => 23,
               'summary'  => 24,
               'device'   => 25
           );

my @arguments  = ();
my @devices = ();
my @unique = ();       

@devices = split( ',', $arguments[$defaultArgs{ device }] );

# foreach my $device (@devices)
# {
#    print $device."\n";
# }

my %hash   = map { $_ => 1 } @devices;
my @unique = keys %hash;                

foreach my $uni (@unique)
{
   print $uni."\n";
}
[download]