Select Code to Download

use strict;
use warnings;
...
} for 1..3;

print $x,$y;

use strict;
use warnings;
...
   $var = $value{ var_name(1,\$var) };
 }
}