#!/usr/bin/perl -w

# Ejercicio 1. Uso de arrays.

# 1.- Crear un array con 4 acidos nucleicos.

@acidos_nuc = ('adenina', 'citosina', 'guamina', 'timina');

# Mostrar en pantalla el array

print "Estos son los 4 acidos: @acidos_nuc\n\n";

# 2.- Insertar un nuevo acido

push (@acidos_nuc, 'uracilo');

# Mostrar en pantalla el array

print "Estos son los 5 acidos: @acidos_nuc \n\n";

# 2.- Eliminar el primer acido

$primer_acido= shift(@acidos_nuc);

# Mostrar en pantalla el array

print "Estos son los acidos una vez eliminado $primer_acido: @acidos_nuc \n\n";

# 3.- El array invertido

@acidos_al_reves = reverse @acidos_nuc;

# Mostrar en pantalla el array

print "Estos son los 4 acidos invertidos: @acidos_al_reves \n\n";

# 4.- El array ordenado

@acidos_ordenados= sort @acidos_nuc;

# Mostrar en pantalla el array

print "Estos son los 4 acidos ordenados: @acidos_ordenados\n\n";

# 5.- Número de elementos

$numero = scalar @acidos_nuc;

print "Este array tiene $numero elementos \n";

exit;