in reply to map weirdness

Any particular reason you use: my @a=map($_ , split(/,/, "BUS2,BE") ) ;and not my @a = split /,/, "BUS2,BE";?

(Update: typo)