It looks like your problems are not so much with the logic but with syntax instead. If you know some Perl, you should probably start with cleaning that up to make your code runnable. Otherwise, start with perlintro and perlsyn.