use strict;
my @myrowidarray;
$myrowidarray[0] = 100;
my $myint = 0;

if ($myrowidarray[$myint] ne "del" && $myrowidarray[$myint] ne "cal" && 

$myrowidarray[$myint] ne "foo") {

	print $myrowidarray[$myint];
}