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

___OUTPUT___

<apple    oranges>