...
my $filename = '/home/lexicon';
open my $fh, '<', $filename
    or die "Couldn't open '$filename': $!";
while (<$fh>) {
    return $_ if /^$lemma:/;
};
...