Pasted

#!/usr/bin/env perl
use strict;
use warnings;
 
my @equipos = qw[ real atletico getafe rayo leganes alcorcon ];
 
my @segunda = splice @equipos, -2;
 
print "Primera: @equipos\n";
print "Segunda: @segunda\n";
 
splice @equipos, 2, @equipos, qw[sevilla valencia farsa bilbado];
 
my @r = reverse @equipos;
 
$"="::"; print "Tabla: @r\n";
# uc!!!