keys %hash

给你一个来自哈希的键的数组，但是没有排序。你可以用命令sort排序它
整条线都是

foreach my $fruit (sort(keys %hash)){

使用perldoc -f sort获得排序函数的帮助。

如果你想按照文件中的顺序来保存数据，可以使用一个数组，数组中的每个元素都可以是一个散列来组织数据：

#!perl

use v5.26;

my @items;
while( <DATA> ) {
    chomp;

    if( /\A(\S+)/ ) {
        push @items, { fruit => $1, info => [] }
        }
    elsif( /\A\s+(.+)/ ) {
        push $items[-1]{info}->@*, $1
        }
    }

foreach my $item ( @items ) {
    print "Fruit: $item->{fruit}\n";
    foreach my $info ( $item->{info}->@* ) {
        print "\tInfo: $info\n";
        }
    }

__END__
apple
    text1
    text2
grape
    text3
    text4
jackfruit
    text5
cranberry
    text6

输出保持文件中的顺序：

Fruit: apple
    Info: text1
    Info: text2
Fruit: grape
    Info: text3
    Info: text4
Fruit: jackfruit
    Info: text5
Fruit: cranberry
    Info: text6

但是，如果您希望按照文件的顺序保存它们，并且只输出它们，则不需要数据结构：

my @items;
while( <DATA> ) {
    chomp;

    if( /\A(\S+)/ ) {
        print "Fruit: $1\n";
        }
    elsif( /\A\s+(.+)/ ) {
        print "\tInfo: $1\n";
        }
    }

如果您希望输出略有不同，其中每行都需要知道水果，请将该名称存储在while循环中的一个持久性变量中：

my @items;
while( <DATA> ) {
    state $fruit;
    chomp;

    if( /\A(\S+)/ ) {
        $fruit = $1;
        print "Fruit: $fruit\n";
        }
    elsif( /\A\s+(.+)/ ) {
        print "\t$fruit: $1\n";
        }
    }