Regarding your issue:
Use of uninitialized value $_[0] in string eq at ***** line 63, <> line 2
This is a result of your call:
vlan_number();
on line 118.

That call does not pass any parameters to "vlan_number():.

When you request $_[0], at line 62, it asks for the first parameter in @_;
Since @_ (Parameter list) is empty, you get the warning.