#!/usr/bin/perl
use strict;
use warnings;
my $prefix="Prefix: ";
sub print_prefix {
    print $prefix, @_;
}
print_prefix "alpha ", "beta ", "gamma\n";