Select Code to Download

 
  DB<259> @input = glob '{a,b}' x 5

...
2:      sub test { my $str = shift; my %h; $h{$_}++ for split //,$str;
+ my %r =reverse %h; return 1 if exists $r{1} };

  DB<262>