Maybe it's that simple:

use strict;
my @fruit = qw/apple oranges/;
print '<', join ('    ', @fruit), '>';

___OUTPUT___

<apple    oranges>
[download]