#!/usr/bin/perl -w 
use strict;
ues Tie::File;

my @ry=();
tie @ry,"Tie::File","a.txt" or die $!;
my %een=();
@ry = grep !$een{$_}++,sort @ry;
untie @ry;