# File:	datastr1.pl
# Title: 	Data Structures in Perl: Associative List (%) 
# 		Days are: 1Mon2Tu3Wed4Th
# 		Keys are 1 2 3 4
# 		Values are Mon Tu Wed Th	

$Days[0] = 'Mon';
$Days[1] = 'Tu';
$Days[2] = 'Wed';
$Days[3] = 'Th';

%Days = ( 1 => $Days[0], 
	    2 => $Days[1],
	    3 => $Days[2],
	    4 => $Days[3] ); 
print	"Days are:  ";
print %Days;
@Mykeys = keys %Days;
print	"\nKeys are @Mykeys \n"; 	

@Myval = values %Days;
print	"Values are @Myval \n"; 	
exit;