#!/usr/local/bin/perl

%priceList = (
    "A"=>2.2,
    "B"=>3.1,
    "C"=>4.0,
    "D"=>5.1,
    "E"=>6.7,
    "F"=>7.6,

);

@keyList = keys %priceList;
print "@keyList";

foreach $index (keys(%myPriceList)){
   print "The price of item $key is $priceList{$index}\n";
}

print "\n\n";
foreach $key (@keyList){
   print "The price of item $key is $priceList{$key}\n";
}

@valueList = values %priceList;
print "\n";
print "@valueList";