$ perl -MO=Deparse,-x7 -e'timethese(1000000, { map => sub { @_ = map 1, 1..5 }, x => sub { @_ = (1)x5 }})'

timethese 1000000, {'map', sub {
    @_ = map(1, (1, 2, 3, 4, 5));
}
, 'x', sub {
    @_ = (1) x 5;
}
};
-e syntax OK