> Hallo everyone and thank you for your previous help
>
> in basic the code would be
>
> for x=1 to 100
> Select Case
> Case=10,20,30,40,50,60,70,80,90
> then do this
> else
> else do this
> end select
> next x
>
> how is this done in perl?
>
> foreach (10,20,30,40,50,60,70,80,90);
> {
> do this;
> }
>
> ???? I think I need to unpack my books! (i'm moving)LOL
> Lou
>
Well there is the FAQ about case statements:

perldoc -q 'switch or case'

In your case (pun intended) assuming the list is formed as you have it,
then you could do,

foreach my $index (1 .. 100) {
unless ($index % 10) {
# multiple of ten
}
else {
# not a multiple of ten
}
}

If your matches are not quite so nice,

my @list = (1, 15, 23, 67, 89);
foreach my $index (1 .. 100) {
if (grep $index == $_, @list) {
# case matched
}
else {
# non match
}
}

All code untested, HTH,

[url]http://danconia.org[/url]