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

my $prefix="prefix: ";
sub printpre {
        unshift @_, $prefix;
        print @_;
}

printpre "apple ", "banana ", "tomfoolery ", "\n";