#!/usr/bin/perl -w

my %a=( foo => "bar",
        fi , "fo");