#!/usr/bin/perl

# create our perl hash
$prices{"pizza"} = 12.00;
$prices{"coke"} = 1.25;
$prices{"sandwich"} = 3.00;

#--------------------------------------------------
# option 1:
# print the hash key and value using a foreach loop
#--------------------------------------------------
foreach $key (keys %prices)
{
  print "$key costs $prices{$key}\n";
}