#! perl-w 


$day=22;
$month=7;
$year=104;
$count=-5;


use Benchmark qw(:all) ;

$results = timethese($count, 
            {
                'Concatinated' => sub { print $day."\-".($month+1)."-".($year+1900)."\n";},
                'Commafied' => sub { print $day,"\-",($month+1),"-",($year+1900),"\n"; },
            },
            'none'
        );
        cmpthese( $results ) ;