#!/usr/local/bin/perl
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;

sub flipflop{
  my $p = !shift;
  sub { $p = !$p }
}

my $fl = flipflop();
say $fl->();
say $fl->();
say $fl->();
say $fl->();