#!/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;
 


##</code><code>##

dec.x.bc.00016113 1067503 1067501
dec.x.bc.00019580 1067503 1067501
dec.x.bc.00041669 1067503 1067501