#!/usr/bin/perl -w

# Uma solucao para o exercicio 1 da Aula 26
# MAC211, 1S2009
# M.S.Reis, 18.06.2009

use strict;

# le da entrada padrao os strings (1 por linha) e 
# armazena sua inversao em @vetor
#
my @vetor = reverse <STDIN>;

# para cada elemento de vetor, eh removido o caracter de fim de linha
# (poderia ter utilizado chomp) e imprime o string
#
$vetor[$_] =~ s/\n//g and print "$vetor[$_] " foreach 0..$#vetor;

print "\n";
