#!/usr/bin/perl
use strict;
use warnings;

# initialisation de tableau
my @tab = ("tcgtgccca", "tgtt", "cccga", "ttcatcag", "ggcaag", "ctg",
   "ggtgtaccggtgatcac", "ccaccta", "cctgaattat"
  );

# affichage du tableau
print join (" ",@tab), "\n";

#declaration et remplissage du 2ème  tableau
my  @tab2;
for my $seq (@tab){
    unshift (@tab2, $seq);
}

# affichage du tableau renversé
print join (" ",@tab2), "\n";
