#!/usr/bin/perl -w
use strict;

doStuff();

sub doStuff {
    my $toggle = initToggle( 1 );
    for ( 1..6 ) { print &$toggle . "\n" };
}

sub initToggle {
    my $x = shift;
    return sub { $x ^= 1; return $x };
}