shift @origcols; foreach ( @origcols ) { $_ =~ s/\.//; push ( @cols , $_ ) unless /Bandwidth.*|MSTCPLoop.*/ ; } #### Use of uninitialized value in substitution (s///) at ./runsql3.sql line 20. Use of uninitialized value in pattern match (m//) at ./runsql3.sql line 21.