sub rosetta_code_new {
    my ( $str ) = @_;
    
    my ( @pal, %seen );
    for my $n ( 0 .. length( $str ) - 1 ) {
        for my $m ( 1 .. length( $str ) - $n ) {
            my $strpal = substr $str, $n, $m;
            push @pal, $strpal
                if $strpal eq reverse $strpal and 
                   not $seen{ $strpal } ++
        }
    }
    
    return @pal
}