#!/bin/perl
#asigno valores a una tabla hash
my %colorfruta;
$colorfruta{"verde"}="kiwi";
$colorfruta{"amarillo"}="platano";
$colorfruta{"rojo"}="sandía";
$colorfruta{"naranja"}="naranja";
print "Una fruta verde es: ".$colorfruta{"verde"}."\n";
%dias=("lunes",L,"martes",M,"miercoles",X,"jueves",J,"viernes",V,"sabado",S,"domingo",D);
print "La representación del lunes es :". $dias{"lunes"}." \n";