#!/usr/bin/perl
my $var;
my $number = 10;
my @array  = ($number, $number, $number);
my %map    = (ten => $number, also_ten => $number);