Re: using strict

[tinita]

i can recommend using perlsub, "Private Variables via my()".
just quoting from there:

The "my" operator declares the listed variables to be lex-
ically confined to the enclosing block, conditional
("if/unless/elsif/else"), loop ("for/fore-
ach/while/until/continue"), subroutine, "eval", or
"do/require/use"'d file.

you're doing something like

# scope file
if ($condition1) {
  # scope if
  my $inner = 1;
}
else {
  # scope else
  my $inner = 2;
}
# scope file
print $inner;

but $inner is only seen in "scope if" and "scope else". no variable $inner has ever been defined in "scope file". so just add a my $inner; before your if/else-stataments.
additionally your logic doesn't make sense to me. you say, if condition1, set the variables to something, if condition2, set them to something else, and otherwise don't set them, but print them. but if they aren't set the print seems pretty useless and will issue a warning.
there are also fine tutorials here in the tutorials section about my(), strict etc. where you might find answers.