#!/usr/bin/perl
use warnings;
use strict;

my @lexikon = sort { length $b <=> length $a } qw/ own known /;
my $word = "unknown";
print rightside($word), "\n";

sub rightside {
    my $word   = shift;
    my $length = length $word;
    for my $l (@lexikon) {
        return $l if $length - length $l == rindex $word, $l;
    }
    return q();
}