sort函数里面可以由运算表达式么？

bookbike

看这个代码
my @ep_sort=sort{
my($fn_a,$sn_a,$id_a,$hw_a,$hs_a)=split(',',$a);
my($fn_b,$sn_b,$id_b,$hw_b,$hs_b)=split(',',$b);
my$hh_a=$hw_a*$hs_a;
my$hh_b=$hw_b*$hs_b;
$hh_a<=>$hh_b;
} @ep;
print "@ep_sort\n";
输出的结果不是对乘积结果的比较，为什么呢？

输出图