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

my $paid = 0;  # :-(

my @shopping =
  (
   'twinkies','coffee',
   (grep !$paid => 'gruel', 'cabbage', 'cordial'),
   (grep $paid => 'caviar', 'truffles', 'champagne'),
  );

print "@shopping";