use strict; use warnings; use Common qw($common1, $common2, ..., $commonN);