$\ = $/;
for (1..2)
{
  my $var = 1;
  print \$var, " created";
  sub function
  {
    print \$var;
  }
  function();
}

##</code><code>##

SCALAR(0x825d70) created
SCALAR(0x825d70)
SCALAR(0x96ec08) created
SCALAR(0x825d70)


##</code><code>##

	sub seqstore {
		my ($flankseq, $mode, @rcd) = @_;
		if ($mode eq "Pos") {
			push (@$flankseq, $rcd[0]);
		} elsif ($mode eq "Freq") {
			push (@$flankseq, $rcd[0]) for (1..$rcd[1]);
		}
		return;
	}