sub unique { my %x;@x{@_}=@_;values %x}

my @sorted_unique = sort unique (split ' ', do { local $\=undef;<> });