#!/usr/bin/perl
use warnings;
use strict;
use Tie::File;

tie @file,'Tie::File','myfile' or die "Can't tie file: $!";
undef %saw;
@file = grep(!$saw{$_}++, @file);
untie @file;