Perl Switch Errors on certain version

Select or download this

         switch ($subkey) {
            case 1 {$acc = $messagebin{$file}{$subkey};
...
          }
     }

Select or download this

$ perl -v

This is perl, v5.8.3 built for i686-linux

Select or download this

$ perl engine_reader.pl
Bad switch statement (problem in the code block?) near engine_reader.p
+l line 214
(cuthbe@ferrari)-(08:51 AM Tue Nov 29)-(FIXReader)
$

Select Code to Download