1. I doute that your program can even 100% pass compiler. An old advice many good people have been giving from time to time: PLEASE USE perl -w.

    In your case, if you use perl -w, you will see that, Perl actually takes your 
    sub cleaner($dirty)

    [download]
    as sub prototype, and warns you that there is illegal char in the prototype.

    As I mentioned prototype, let's just give a simple example of how to use prototype. In the following example, if you uncomment the third call to greeting, you will get an error. Yes, the Perl prototype check is working, and it gives you an error "too many arguments". 
    use strict;

sub greeting($);

greeting("Merry Christmas");
greeting("Happy New Year");
#greeting("Merry Christtmas", "and Happy new Year");

sub greeting($) {
    print "I say, \"", shift, "!\"\n";
}

    [download]
  2. Also there is really no point, for you to make it looks like that you are passing a parameter to that function, when you are actually using it as a global variable. To learn more about Perl scope, could help you make the concept straight.

In reply to Re: Problem creating a function by pg
in thread Problem creating a function by Willman023

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.