Mouseにして早いのかな benchmark script #!/usr/bin/perl use warnings; use strict; use FindBin; use File::Spec; use Benchmark qw(:all) ; use lib (File::Spec->catfile($FindBin::Bin,'./../lib'),File::Spec->catfile($FindBin::Bin,'lib') ); use A…