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

my ($x, $y) = (100, 200);

my $dynamic = sub {
    return "X is bigger" if $x > $y;
    return "Y is bigger" if $x < $y;
};

print $dynamic->(), "\n";
$x = 500;
print $dynamic->(), "\n";