#!/usr/bin/perl -w
use strict;

sub shoppingList {

  my $item = shift();
  return sub
  {
    my $otherItem = shift();
    print "I need to buy a $item and a $otherItem.\n";
  };
}

my $itemInBasket = shoppingList( "sweater" );
my $newItemInBasket = shoppingList( "lipstick" );

&$itemInBasket( "pair of shoes" );
&$newItemInBasket( "purse" );