Powerful monks, I seekth thou Wisdom on my quest to learning the almighty perl language !

I have to write a script to automatize the inflection of a given list of french verbs. I made the following script (still halfway), but it's giving me lots of errors ("Use of uninitialized value in substitution (s///)"). I think there is a problem with the "my" scope. Isn't it possible to declare multiple scalars, and to write like " ($scalar1, $scalar2..) = $otherscalar ?
With the following script, I don't get error messages only for the first scalar in the parenthesis.
Oh, btw, I'm still a learning newbie, so if you have ideas of how to write this script better, please tell me !

#!/usr/bin/perl

use strict;
use warnings;

while (<>){
    chomp;
    s/\r//g;

    my($verb,$group) = split /\t/; # I take the $verb name and inflect
+ion group number

    if ($group == 1){ #if its first group,...
        my ($present_1,$present_2,$present_3,$present_4,$present_5) = 
+$verb;
    my ($imparfait_1,$imparfait_2,$imparfait_3,$imparfait_4,$imparfait
+_5) = $verb;
    my ($past_1,$past_2,$past_3,$past_4,$past_5,$past_6) = $verb;
    my ($futur_1,$futur_2,$futur_3,$futur_4,$futur_5,$futur_6) = $verb
+;
    my ($conditional_1,$conditional_2,$conditional_3,$conditional_4,$c
+onditional_5) = $verb;
    my ($subj_imp_1,$subj_imp_2,$subj_imp_3,$subj_imp_4,$subj_imp_5,$s
+ubj_imp_6) = $verb;
    my $pp_ger = $verb; # give them all the $verb value, then...

    $present_1 =~ s/er$/e/g;
    $present_2 =~ s/er$/es/g;
    $present_3 =~ s/er$/ons/g;
    $present_4 =~ s/er$/ez/g;
    $present_5 =~ s/er$/ent/g;
    $imparfait_1 =~ s/er$/ais/g;
    $imparfait_2 =~ s/er$/ait/g;
    $imparfait_3 =~ s/er$/ions/g;
    $imparfait_4 =~ s/er$/iez/g;
    $imparfait_5 =~ s/er$/aient/g;
    $past_1 =~ s/er$/ai/g;
    $past_2 =~ s/er$/as/g;
    $past_3 =~ s/er$/a/g;
    $past_4 =~ s/er$/&#20294;mes/g;
    $past_5 =~ s/er$/&#20294;tes/g;
    $past_6 =~ s/er$/&#31466;rent/g;
    $futur_1 =~ s/er$/erai/g;
    $futur_2 =~ s/er$/eras/g;
    $futur_3 =~ s/er$/era/g;
    $futur_4 =~ s/er$/erons/g;
    $futur_5 =~ s/er$/erez/g;
    $futur_6 =~ s/er$/eront/g;
    $conditional_1 =~ s/er$/erais/g;
    $conditional_2 =~ s/er$/erait/g;
    $conditional_3 =~ s/er$/erions/g;
    $conditional_4 =~ s/er$/eriez/g;
    $conditional_5 =~ s/er$/eraient/g;
    $subj_imp_1 =~ s/er$/asse/g;
    $subj_imp_2 =~ s/er$/asses/g;
    $subj_imp_3 =~ s/er$/&#20294;t/g;
    $subj_imp_4 =~ s/er$/assions/g;
    $subj_imp_5 =~ s/er$/assiez/g;
    $subj_imp_6 =~ s/er$/assent/g;
    $pp_ger =~ s/er$/ant/g; #change them all to their respective forms
    print "$verb\t$present_1\t$present_2\t$present_1\t$present_3\t$pre
+sent_4\t$present_5\t$imparfait_1\t$imparfait_1\t$imparfait_2\t$imparf
+ait_3\t$imparfait_4\t$imparfait_5\t$past_1\t$past_2\t$past_3\t$past_4
+\t$past_5\t$past_6\t$futur_1\t$futur_2\t$futur_3\t$futur_4\t$futur_5\
+t$futur_6\t$conditional_1\t$conditional_1\t$conditional_2\t$condition
+al_3\t$conditional_4\t$conditional_5\t$present_1\t$present_2\t$presen
+t_3\t$imparfait_3\t$imparfait_4\t$present_5\t$subj_imp_1\t$subj_imp_2
+\t$subj_imp_3\t$subj_imp_4\t$subj_imp_5\t$subj_imp_6\t$present_1\t$pr
+esent_3\t$present_4\t$verb\t$pp_ger\t$pp_ger\t$group\n";
    }
#and print out
}

[download]

In reply to Automatic verb inflection script by gojippo

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.