#!/usr/bin/perl

my @commands = qw(list save load quit);
my (%commands, $k, $v);

use Text::Abbrev;

abbrev \%commands, @commands;

while (($k, $v) = each %commands) {
    print "$k = $v\n";
}

my $input;

chomp($input = <STDIN>);
my $command = $commands{$input};

print "That's an abbreviation for $command.\n";