my %actions = map { $_ => 1 } ('admin','backup','login','start','steam'); 
 
    my ($action,$remote) = @ARGV;       
		 $action = AutoComplete($action); 
 
	    # some other code 
 
		if ($actions{$action}) { 
			# do something 
		} 
 
sub AutoComplete { 
	my $action = shift; 
		  $action = 'admin'  if ($action =~ /^a$|^ad$|^adm$|^admi$/); 
		  $action = 'backup' if ($action =~ /^b$|^ba$|^bac$|^back$|^backu$/); 
		  $action = 'login'    if ($action =~ /^l$|^lo$|^log$|^logi$/); 
		  $action = 'start'     if ($action =~ /^sta$|^star$/); 
		  $action = 'steam'     if ($action =~ /^ste$|^stea$/); 
return $action; 
}

#!/usr/bin/perl 
  
use strict;  
use warnings;  
use Getopt::Long; 
use Data::Dumper; 
 
my $file; 
my $length; 
my $verbose; 
 
GetOptions ( 
	"length=i" => \$length,    # numeric 
	"file=s"   => \$file,      # string 
	"verbose"  => \$verbose)   # flag 
or die("Error in command line arguments\n"); 
   
print Dumper($file, $length, $verbose);

#!/usr/bin/perl 
 
use 5.010; 
use strict;  
use warnings;  
use Getopt::Long; 
 
my %dispatch = ( 
	admin   =>  \&admin, 
	backup  =>  \&backup, 
	login   =>  \&login, 
	start   =>  \&start, 
	steam   =>  \&steam, 
	default =>  \&default, 
); 
 
my $action = 'default'; 
my $remote; 
 
GetOptions ( 
            'admin'     => sub { $action = shift }, 
            'backup'    => sub { $action = shift }, 
            'login'     => sub { $action = shift }, 
            'start'     => sub { $action = shift }, 
            'steam'     => sub { $action = shift }, 
            'remote=s'  => \$remote, 
           ) 
or die("Error in command line arguments\n"); 
 
$dispatch{$action}->($remote); 
 
sub admin { 
    my $host = shift; 
    say "doing 'admin' things on $host"; 
} 
 
sub backup { 
    my $host = shift; 
    say "doing 'backup' things on $host"; 
} 
 
sub login { 
    my $host = shift; 
    say "doing 'login' things on $host"; 
} 
 
sub start { 
    my $host = shift; 
    say "doing 'start' things on $host"; 
} 
 
sub steam { 
    my $host = shift; 
    say "doing 'steam' things on $host"; 
} 
 
sub default { 
    my $host = shift; 
    say "doing 'default' things on $host"; 
}

use strict; 
use warnings; 
my %actions = map { $_ => 1 } ('admin','backup','login','start','steam'); 
my ($action,$remote) = @ARGV;        
$action = AutoComplete($action, keys %actions);  
printf '%-6s %d', $action, $remote; 
 
 
sub AutoComplete { 
    my ($action, @actions) = @_; 
    die "Suspucious argument\n" if $action =~/[^\w]/; 
    my @matches = grep {/^$action/i} @actions; 
    return $matches[0] if @matches == 1; 
    die "Invalid option $action\n"; 
}