#!/usr/local/bin/perl -w
use strict;

use vars qw/$name $phone/;

use CGI;
my $query = new CGI;

print $query->header;

format STDOUT =
   @<<<<<<<<<<< @||||||||||||||
   $name,       $phone
.

my %phones = (
    "Baz" => "1-293-593-2529",
    "Foo Bar" => "1-392-592-0382"
);

print "<pre>\n";
print "Phone Numbers:\n";
for $name (keys %phones) {
    $phone = $phones{$name};
    write;
}
print "</pre>\n";