This code is full of basic errors (no sigils, bad use of break, using "set interface" with barewords). Make sure this really is Perl and if yes, see perlintro.