my %locs = (
    one   => '\c$\files',
    two   => '\d$\stuff',
    three => '\d$\things'
);
my %servers = (
    ksl => '\\server1',
    krf => '\\server2'
);

my $server = <STDIN>;
chomp $server;

my $loc = <STDIN>;
chomp $loc;

print $servers{$server}, "\n";
print $locs{$loc}, "\n";