#!/usr/bin/perl
@array=(0,1,0);
foreach $i (@array){
print "\n$i\n";
}
for($i=0;$i<@array;$i++){
$array[$i]=!$array[$i];
}
print "After toggling\n";
foreach (@array){
print "\n$_\n";
}