Well, the first error is to not use strict

Otherwise you would have seen the error in

foreach $team (keys %teams) {

If ($team ne ?please specify?){

Push @list1,$team1;

}

}
[download]

There is no variable $team1, it should be $team!