#!/usr/bin/env perl

use strict;
use warnings;

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