#!/usr/bin/perl

$i = 5;
$i += ++$i + $i++;
print $i, "\n";