A closure is an anonymous subroutine
my $name="Tommy"; { my $name = "Tom"; my $age = 6; $ref = sub{ return "$name is $age.\n"; } } print "$name is back\n"; print &{$ref};