Pasted

#!/usr/bin/env perl
use warnings;
 
my @dias=qw<lunes martes miercoles jueves viernes sabado domingo>;
 
# print "Dias: ";
# foreach $_ (@dias) {
#     print $_
# }
# print "\n";
 
# print "Dias: ";
# print "[[$_]]" foreach @dias;
# print "\n";
 
#$"=">-<"; print "Dias: @dias\n";