6 chomp (my @banks = split /\s+/, <>);
12 my $key = join(',', @banks);
13 last if defined $another && $another eq $key;
14 if ($seen{$key}++ && !defined $another) {
20 for my $i (0 .. $#banks) {
21 if ($banks[$i] > $max) {
28 $maxi = 0 if ++$maxi > $#banks;