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

@> = qw(Roses are red. Violets are blue.);
print $_, " " for @>;