#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use feature 'say';
use File::Copy;

my %j = (
    1  => 'vimplugins',
    2  => "vimwiki",
    3  => "vim",
    4  => "bash",
    5  => "latex",
    6  => "perl",
    7  => "regex",
    8  => "git",
    9  => "gnupg",
    10 => "nmap",
    11 => "tmux",
    12 => "csssnippets",
    13 => "htmlsnippets",
    14 => "latexsnippets",
    15 => "markdownsnippets",
    16 => "perlsnippets",
    17 => "vimsnippets",
);

### PRINT THE SORTED HASH ###
say "$_ - $j{$_}" for sort { $a <=> $b } keys(%j);

### GET USER SELECTION ###
my $number = <STDIN>;
chomp($number);

### PRINT OUT $j{$number} DIRECTLY INSTEAD OF COPYING IT TO ANOTHER BUFFER ###
say "\r\b\ryou picked -> $j{$number}\n" if exists $j{$number} or die "selection <$number> does not exist in the list!\n";