Yeah, the problem starts with the
    switch($argon) { ...
block opening — but that's not any "switch" syntax I'm familiar with (that
    my $case = 0; { ... }
stuff is really strange); see Switch Statements in perlsyn. However, I tend to stay away from weird experimental things so I'm not the best authority on this topic. I'd echo Paladin's advice to re-write.