rev_array+hash

use 5.010;
use strict;
use warnings;

#INICIANDO A ARRAY
my @veiculos = ("Aviao", "Barco", "Helicoptero");
my @paises = ("Brasil", "Estados Unidos", "China");
my @cidades = ("Maceio", "Joao Pessoa", "Camaçari");


print "- Veiculos.\n";
print "- Paises.\n";
print "- Veiculos.\n";
print " \n";
print "Selecione a array:\n";
my $array = <STDIN>;

if ($array eq "veiculos") {
    print "@veiculos\n";



} elsif ($array eq "paises") {
    print "@paises\n";



} elsif ($array eq "cidades") {
    print "@cidades\n";



}
sleep (5);