Get Unique Elements

#! /usr/local/bin/perl -w
open(FILEREAD, "finale");
open(FILEWR, ">fin");
@in=;

undef %saw;
@out = grep(!$saw{$_}++, @in);
print @out;
print FILEWR @out;