#!/usr/local/bin/perl -w
###########################################
# multipaste - Multiple paste buffers
# Mike Schilli, 2012 (m@perlmeister.com)
###########################################
use strict;

my @words = qw(yes no maybe so);

for my $word ( @words ) {

    open my $pipe, "|-", 
    qw(xclip -verbose 
       -selection CLIPBOARD -loops 2);

    print $pipe $word;
    close $pipe or die;
}