my @porder = split /,/, $info{'porder'};