my @anual = (365, 52, 12, 7, 24, 60);
my ($year, $week, $mounth, $day) = @anual;


print "Un año tiene ", $anual[0], " días", "\n", $year, " días equivalen a ", $week, " semanas", "\n", "La semana tiene ", $day, " días", "\n";