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

$a=5;
printf("%d%d%d%d%d\n",$a++,$a--,++$a,--$a,$a);