#!/usr/bin/perl

my ($the,$fastest,$donut,$youve,$ever,$seen) = qw [ the fastest donut you've ever seen ];

sub joiner
{
        my $x = join ('/', $the,$fastest,$donut,$youve,$ever,$seen);
}

sub interpolator
{
        my $x = "$the/$fastest/$donut/$youve/$ever/$seen";
}

use Benchmark qw [ cmpthese ];

cmpthese ( 1000000, {

        joiner       => \&joiner,
        interpolator => \&interpolator,
}
);