#! /usr/bin/perl

#      state  Illustrate state variable
use strict;
use warnings;

use 5.10.1;

my $value = "\nOuter\n";

say $value;

output() for (1..3);

say $value;

#   end of main

sub output {

       state $value = 0;
       my    $var   = 0;
       $value++;
       $var++;
       say "Next state variable = $value while my stays $var";
       
}

#  End state