#!/usr/local/bin/perl

print "\n\n";
%priceList = (
    "A"=>2.92,
    "B"=>3.31,
    "C"=>1.00,
    "D"=>1.01,
    "E"=>2.87,
    "F"=>2.56,
);

printAA(%priceList);
print "$priceList{'A'}\n";

%priceList = (
    1=>28.92,
    2=>36.31,
    3=>124.00,
    4=>178.01,
    5=>205.87,
    6=>24.56,
);
print "Or like this $priceList{1} \n\n";

printAA(%priceList);
sub printAA {
    my %myPriceList = @_;
    foreach $key (keys(%myPriceList)){
        print "$key is $priceList{$key}\n";
    }
    print "\n\n";
}