Pasted

#!/usr/bin/env perl
use warnings;
use strict;
 
use 5.010;
 
my @dias=qw<lunes martes miercoles jueves viernes sabado domingo>;
my @num = (1 .. 7);
 
say "Laborables: @dias[0..4]";
say "Festivos: @dias[-2,-1]";
say "Numeros: ", @num;
say "Primer ($num[0]) y ultimo ($num[-1]) numeros.";
say "Hay ", my $i=@num, " numeros.";
say "Hay ", ++$#num, " numeros.";
my $string="@dias";
say "Dias: ", $string;
say "Fin.";