#!/usr/bin/perl

open F,"<", "dict.txt";
open Ftmp,">","/tmp/dict.tmp";

@raw_data = <F>;

print Ftmp reverse(@raw_data);

close(F);
close(Ftmp);