for/array

#!/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";