SWITCH: for ($num) { /11/ && do { $c += $k[10] << 24; last SWITCH; }; /10/ && do { $c += $k[9] << 16; last SWITCH; }; # ...and so forth. # Default action. }