my $check = sprintf("%0.2d", $x);
next if ('01,02,05,06,09,10,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56' =~ m/$check/);