use overload 
  'x' => repeater;

sub repeater {
  my ($obj, $rep, $rev) = @_;
  ($obj, $rep) = ($rep, $obj) if ($rev);

  my @set = ();

  push @set, "$obj" for (1..$rep);
  warn @set;
  warn wantarray ? "a" : "s";
  return (@set);
}