#!/h0/gebremar/www/perl

$forex_rate=1.5;
$Ethio_Birr=67;
$dollars=$Ethio_Birr*$forex_rate;
print "$Ethio_Birr is equal to .\n".
	"$dollars at the current foreign exxhange rate which is \n".
	"$forex_rate\n";
$tester;
@list={"milk", "eggs","plants","coverages"};

if ($list[0] le $list[1])
{
	print " this is the first element $list[0]";
	$list[0]="tester";

}
else
{

	print " this is the second element $list[1]";

	$list[1]="goer";
}

print "$list[0] see if modified";
print "$list[1] see if modified";

@list[1,3]={"1212","4141"};
print "$list[1]- the final values and \n" .
	" the final $list[3] the other final values ";


 
print "The number of elements is $#list";

print "\n\n";
print "Let's come to Hashes ...Value Key pairs";

%Sweeties=("Biruk","Eden","Mesge","Eleni","Ashebire","None"); 

print 	$Sweeties{"Biruk"};


print 	$Sweeties{"Mesge"};

$Sweeties{"Mesge"}="Bethe";
print 	$Sweeties{"Mesge"};

$stringtester="Coming od th COMINGDSGDSFGSGthe Age ";
$stringtester=lc(stringtester);
print $stringtester;