#!/usr/bin/perl -w
use strict;

{
    my $v = 1;
    sub mk_view_v 
    {
        $v; ## <<< this is an error
        sub { $v }; #<<<this is a no op ??
                    #anon sub declaration that if called
                    #would return $v
        ## but if $v is 1; then mk_view_v() returns 1;
        ## well maybe not, maybe this is supposed to
        ## return a ref to the anon sub{}?
        ## this still looks strange to me
        # weird
    }
}
print "(", mk_view_v()->(), ")\n";
# very strange print statement