for (@busi) { $_ =~ s/-//g; }