With ActivePerl 5.8 on Windows I get :

la row2 vaut DAL12 DAL B772 KATL EGKK 22:05 1325 05:39 339
la row2 vaut SHT9Y SHT B752 EGPH EGLL 18:00 1080 18:55 1135
la row2 vaut SHT9P SHT B752 EGPH EGLL 17:42 1062 18:37 1117
la row2 vaut SHT9B SHT B752 EGPH EGLL 10:55 655 11:49 709

the value of SHT8K is :
SHT9Y SHT B752 EGPH EGLL 18:00 1080 18:55 1135 SHT9P SHT B752 EGPH EGLL 17:42 1062 18:37 1117 SHT9B SHT B752 EGPH EGLL 10:55 655 11:49 709
the value of DAL11 is :
DAL B772 KATL EGKK 22:05 1325 05:39 339

Which is exactly what the code should do, I think.