@webserverlist = qw(server1:NY:3600 webserver1:NY:3600 server2:NY:3600 server3:NY:3600 webserver4:NY:3600 server4:Boston:3600);

foreach (@webserverlist)
{
if ( $_ =~ m/^web.*/ )
{
push (@list, $_."\n" );
}
}
print @list;