Значение хеш-ключа не получается правильно

Question

*Editing to include the entire code

#Shell script

less file.txt | perl parseperl.pl > index.html

#This is the Perl file parseperl.pl
my @array;
while(<>)
{
($date,$name,$city) = split(",",$_,3);
%hash =(NY=>"NYC", Washington=>"Virginia", London=>"UK");
push @array, "$name, $city,$hash{$city}";
}
foreach(@array)
{
($date,$name,$city,$hash{$city}) = split(",",$_);
print "<tr>\n";
print "<td>$name</td>\n";
print "<td>$city</td>\n";
print "<td>$hash{$city}</td>\n";
}

Код по какой-то причине принимает значение предыдущего ключа в выводе

Например: это вывод

Joe NYC NY
Mary Washington NY

Мой входной файл file.txt.

12/12 12:32:56,Joe,NYC
12/12 12:12:16,Mary,Washington

Пожалуйста, сообщите

---

Редактировать

Мой код работает, когда я использую этот

($name, $city, $state) = split (/,/,$_)