my $eingabe = "perl";

foreach (qw/perl-community persil perle pass/)
{
    if ($_ =~ /^\Q$eingabe\E/) {
        print "Ergebnis: $_\n";
    }
}