#!/usr/local/bin/perl
%staff = (
"Year0_coord" => "Emmanuel",
"Year1_coord" => "Edore",
"Year2_coord" => "Angharad",
"IY_coord" => "Neal",
"Year3_coord" => "Neil");
foreach (keys %staff)
{
     print "$_ is $staff{$_}\n";
}
