Select Code to Download

my ( @res, $last );
foreach my $item ( @sorted ) {
  next if ( defined $last and $item eq $last );
  push @res, $item;
  $last = $item;
};