#! /usr/bin/perl

# ファイル名
$fname = "source8text.txt";

# ファイルを降順に並べ替えて読む
open(IN,"$fname") || die('FILE OPEN ERROR!');
	@file = sort { $b cmp $a } <IN>;
close(IN);

# 1行ずつ改行して表示
print @file;

exit;