[ic] Perl in the interchange

[MhsapoA@netscape.net]

I'm still having problem with the if loop. See ??????????? 

Below is the code:
========================================================================
[loop search="
st=db
sq=select * from inventory where 
ml=10000
"]
[perl]
push (@f,'[loop-data inventory sku]');
push (@l,'[loop-data inventory quantity]');
push (@z,'[loop-data inventory something]');
[/perl]
[/loop]

[perl]
@indices = sort { $l[$a] cmp $l[$b] or
$f[$a] cmp $f[$b] or
$z[$a] cmp $z[$b]} (0..$#f);

foreach (@indices){
$la = $l[$_];
$fa = $f[$_];
$za = $z[$_];

$key = $fa . "\0" . $la ;
push (@{$models{$key}}, $za);
}
foreach $key (sort keys %models){
($skusplit,$invsplit) = split (/\0/, $key);
?????????????????????????????????
Try Also

$inv =~ s/^\s+//;
$inv =~ s\s+$//;
if($invsplit =~ /0/){
$istock='Y';
}else{
$istock='N';
}
?????????????????????????????????
$inv =~ s/^\s+//;
$inv =~ s\s+$//;
if($invsplit > 0){
$istock='Y';
}else{
$istock='N';
}
???????????????????????????????????

$return .= "SKU: $skusplit,INV: $invsplit, Is is in Stock: $istock";
??????????? 
should I use explicit if?
[if explicit]
[condition] $inv > 0
[/condition] Yes
[/if]
????????????
}
return $return;
[/perl]
======================================================================
SAMPLE OUTPUT:
SKU: ORANGE,INV: 100, Is is in Stock: N
SKU: LIME,INV: 0, Is is in Stock: N
SKU: PEAR,INV: 14, Is is in Stock: N
SKU: FROG,INV: 23, Is is in Stock: N
...ETC