while (1) {
    print "Bitte Produktnamen oder 'Ende' eingeben: ";
    chomp( my $input = <STDIN> );
    last if $input eq 'Ende';
    ...
}
# Ausgabe der Bestellung