#!/usr/bin/perl

use strict;
use warnings;

use Term::Complete;

my @words = ( 'perl', 'pepper', 'peace' );

Complete('', \@words);