#!/usr/bin/perl -w
###########################################################
use strict;
use Tie::File;
 
my @rray=();
 
tie @rray,"Tie::File","myfile" or die $!;
 
print join "\n",sort @rray;
print "\n";
 
untie @rray;