use strict;
use warnings;
use File::Copy;
use Tie::File;

copy( $ARGV[0], $ARGV[1] ) or die $!;
my @file;
tie @file, 'Tie::File', $ARGV[1] or die $!;
@file = sort @file;
untie @file;