submit Perl Algorithm