#!/usr/bin/perl -T
use warnings;
use strict;

my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m);

$a++;
$b += 1;
$c = $c + 1;

$d->{size} = 'big';
$e->[5] = 35;

$_ .= "$f";
$_ .= $g;
$_ = 'h=' . $h;
$_ = $i . '=i';
$_ = "j=$j";
$_ = "$k=k";

$_ = $l x 5;
$_ = "$m" x 5;