>>36
コレどっちかというとスクリプトのもんだいやね
にしても、データの構造が悪いなぁ

@data= (
{fluit=>'apple',from=>'青森',price=>40},
{fluit=>'orenge',from=>'愛媛',price=>20},
{fluit=>'strawberry',from=>'茨城',price=>30}
);

@data = @data[sort{$data[$a]->{$FORM{select}} cmp $data[$b]->{$FORM{select}] } 0 ..$#data];

for (0 .. $#data) {
　　print "$data->[$_]->{fluit},$data->[$_]->{from},$data->[$_]->{price}\n";
}

自分ならこんなふうに組むかなぁ・・・