#!/usr/bin/perl

use warnings;
use strict;

my $counter = 0;

&mySub;
&mySub;
&mySub;

sub mySub {
  print "My Value is ", $counter++, "\n";
}