perldoc perlsub says:

The declared variable is not introduced (is not visible)
until after the current statement.  Thus,

         my $x = $x;

can be used to initialize a new $x with the value of the old$x, [...]
[download]

So perl tries to find another $epoch.

HTH