for my $i ( 0..$#ss-1 ) {
  my $si = $ss[ $i ];
  for my $j ( $i+1..$#ss ) {
    my $sj = $ss[ $j ];

    # ...

  }
}