Select Code to Download

#!/usr/bin/env perl
use warnings;
...
print member(2,@x),"\n"; # not in list 
print member(0,@x),"\n"; # 1st item in list
print member(2,@x),"\n"; # not in list, again

#!/usr/bin/env perl
use warnings;
...
print member(2,@x),"\n"; # not in list 
print member(0,@x),"\n"; # 1st item in list
print member(2,@x),"\n"; # not in list, again

0
1
0