#!/usr/bin/env perl

use strict;
use warnings;

my ($a, $b, $c, $d);
$a = 100;
$b = 200;
$c = 300;

$d = $a + $b + $c;