sm_lineuniq.pl

#!/usr/bin/perl
use List::MoreUtils qw(uniq);
use Sort::Key::Natural qw( natsort );

use strict;
use warnings;

die "Usage: $0 [LINE LIST]\n" if @ARGV != 1;

my $input = $ARGV[0];

my @abv = natsort( uniq split(/ /, $input));

foreach my $word (@abv)
{
  print($word);
  if( $word eq $abv[-1] ) {
        print "\n";
	last;
  }
  print " ";
}