@contents = <>;
@new = reverse(@contents);
foreach $line (@new){
    print $line;
}
